アクティブのエクセルのファイル名を取得して、メッセージボックスに表示するマクロです。

Sub GetFileName()
    Dim FileName As String
    FileName = ActiveWorkbook.Name 'ActiceWorkbookオブジェクトのName情報を取得し、変数「FileName」に格納する
    MsgBox FileName 'FileNameに格納されている文字列をメッセージボックスに表示する
End Sub

※「オブジェクト」とは、操作を指示する際に、操作の対象となる「物」のことをいいます。このケースでは、オブジェクトは「ファイル（Book）」を指しています。