Office

Excelにてシート名をセルに表示させる式

よく判らん式だが、確かにこれでOK

=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,31)

参考URL
http://www11.plala.or.jp/koma_Excel/contents1/mame1010/mame101001.html