アクティブなブックの名前を取得したい時は、Nameプロパティを使います。

Sub bookname()
	MsgBox ActiveWorkbook.Name
End Sub
    

マクロが記載されているこのブックの名前を取得したい場合は、こちらのコードになります。 このマクロは、自分自身を参照します。現在マクロが記述されているブックです。

Sub thisbookname()
	MsgBox Application.ThisWorkbook.Name
End Sub
    

現在開いているブックの名前をすべて取得するには、For Each・・・Nextステートメン卜を使って、 ブックの名前を調べます。
それを表示させるために、Debug.Printという命令を使います。 これは、VBAのプログラムでさまざまな情報をイミディエイトウィンドウに出力する命令です。3行マクロ 51回で使いました。

Sub 開いているブックの名前をぜんぶ調べる()
  Dim wbook As Workbook
  For Each wbook In Workbooks
  Debug.Print wbook.Name
  Next wbook
End Sub
    

マクロを実行すると、イミディエイトウィンドウにファイル名が表示されます。

もしフルパスで名前が欲しい時は、
wbook.Name を wbook.FullName のように変更してください。
Workbook.Name プロパティプロパティは、ブックの名前を返します。
Workbook.FullName プロパティは、ブックのパスとファイル名を合わせたフルパスを返します。
Workbook.Path プロパティは、ブック/ファイルへの完全なパスを返します。

Sub 開いているブックの名前をぜんぶ調べる()
  Dim wbook As Workbook
  For Each wbook In Workbooks
  Debug.Print wbook.FullName
  Next wbook
End Sub
    

開いているブックの名前一覧がフルパスで取得できます。