excel シート名を取得

前はそのブック内の全てのシート名を取得するものを使用したが、今回は現在使用しているシート名を取得する関数。
=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,31)
丸写しになってしまった。