Excelのシート名取得

複数のシートがあるからシート見出しに名前を書いて
識別できるようにしているけど、紙に印刷したときに
どのシートを印刷したのか判らないという悲しみを
定期的にやらかしては毎回過去に作成したExcelファイルに
書いた式を探すという作業を繰り返しているので
関数をメモしようと思い立ったので忘れないうちに書いている。

使い方は、好きなセルに下の式を記述を行えば自シートの名前が取得出来る。

=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))