フォルダを開く（Shell関数を使用）

Sub prcOpenFolderInExplorer()
    Dim strFolderPath As String ' フォルダパス
    strFolderPath = "C:\指定のパス" ' 開きたいフォルダのパスを指定

    ' Shell関数を使用してエクスプローラーでフォルダを開く
    Shell "explorer.exe " & strFolderPath, vbNormalFocus
End Sub