【Excel VBA】開いているブックが保存されているフォルダを開く

Excelブックが保存されているフォルダを開きます。

'
' 開いているブックが保存されているフォルダを開く。
'
Public Sub フォルダを開く()
    If ActiveWorkbook.path = "" Then
        MsgBox "ファイルはまだ保存されていません。", vbCritical, "エラー"
    Else
        CreateObject("Shell.Application").Open ActiveWorkbook.path
    End If
End Sub