【vba】よく使うマクロ

macro_book_name = ActiveWorkbook.Name 'このマクロのファイル名
macro_book_path = ActiveWorkbook.Path 'このマクロのパス

graph_n = ActiveSheet.Range("A65536").End(xlUp).Row '最終行

Worksheets.Add After:=Worksheets(1) 'ワークシート追加
ActiveSheet.Name = "graph1" 'ワークシート追加

x_maxdata = ActiveSheet.Range("IV18").End(xlToLeft).Column '最終列

Range(Cells(1, 1), Cells(y_maxdata, x_maxdata)).Select '範囲指定

Windows(macro_book_name).Activate 'マクロファイルに戻る

ActiveWindow.Close 'ファイル閉じる