Excelの関数だけで現在のシート名を取得する
code:getSheetName
MID(CELL("filename", $A$1 ), FIND("]", CELL("filename", $A$1))+1, 99)