Excelブックのファイル名を調べる

＜分類：値取得＞
＜使用例：Excelブックのファイル名を調べる＞
＜プログラム例＞

Sub このExcelブックのファイル名を調べる()
   Dim s As String

   s = ThisWorkbook.Name
   MsgBox ("このExcelブックのファイル名は" & s & "です")

End Sub