ExcelVBAで特定のフォルダを開く

Sub Test()
 Dim myFol As String
 myFol = ThisWorkbook.Path & "¥hoge¥"
 Shell "C:¥Windows¥Explorer.exe " & myFol, vbNormalFocus
End Sub