Excelでワークシート名をセルに表示

=RIGHT(CELL("filename",$A$1),LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1)))

どのセルでも同じ（A1を絶対値指定してる）。
やっている内容は、セルの情報をファイルネームごと（ワークシート名も入っている）もってきて
「]」の位置を見極めて、右から文字列を取得している

※ファイル名やフォルダ名に「]」が含まれていると、正しく取得ができない…
その場合は、ユーザー関数を使うしかないかな。

SheetName()

Function SheetName() As String
　Application.Volatile
　SheetName = Application.Caller.Parent.Name
End Function