=MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-1)
どのセルでも同じ(A1を絶対値指定してる)。
やっている内容は、セルの情報をファイルネームごと(ワークシート名も入っている)もってきて
「]」の位置を見極めて、右から文字列を取得している
※ファイル名やフォルダ名に「]」が含まれていると、正しく取得ができない…
その場合は、ユーザー関数を使うしかないかな。
SheetName()
Function SheetName() As String
Application.Volatile
SheetName = Application.Caller.Parent.Name
End Function