マクロを実行しているファイル名の取得

①：ActiveWorkbook.Name -アクティブなっているExcelの名前の取得
②：ThisWorkbook.Name -マクロを実行しているExcelの名前

①を使用すると実行する場所によって違う名前を取ってくる場合があるので×
マクロを実行しているExcelの名前を取得したい場合は②を使用する。

-----------------------------------------------------------------------
Dim ThisFilename As String

Sub FileName取得
  ThisFilename = ThisWorkbook.Name 'マクロを実行しているファイル名を取得
END Sub
-----------------------------------------------------------------------

EXCEL VBA xls Excel2003