他のファイルからデータを取得したり、同じファイルの中のシートからでも、データを取得する事はよくある
事である。この場合、元のファイルのシートに戻る時に、そのシート名が分かっていないと戻れない。
プログラムを書くときに、データを取得するファイル名とシート名は当然わかっているが、自分自身のファイル名
やシート名は変更したり、コピーを使用したりするので、プロブラムに書いておかないで、その都度取得する方が
良い場合がある。

現在開いているファイル名を取得する。
    F = ActiveWorkbook .Name

現在のシート名を取得する。
    strSh = Range("A1") .Parent .Name
    
    S = ActiveSheet .Name
      
    どちらでも取得できる。
 
基本的なマクロの習得
開いているファイル名とシート名の取得


実際に使っているシステムの内容で解説
  EXCEL VBA 講座