アクティブのエクセルのファイル名を取得して、メッセージボックスに表示するマクロです。
Sub GetFileName()
Dim FileName As String
FileName = ActiveWorkbook.Name 'ActiceWorkbookオブジェクトのName情報を取得し、変数「FileName」に格納する
MsgBox FileName 'FileNameに格納されている文字列をメッセージボックスに表示する
End Sub
※「オブジェクト」とは、操作を指示する際に、操作の対象となる「物」のことをいいます。このケースでは、オブジェクトは「ファイル(Book)」を指しています。