[他]シート名を取得する

excelでシート名を取得したい場合があります。シート名を特定のセルに入れたい場合などですね。
で、式はこんな感じ。

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

2012/1/16 追記。
複数のシートがあった時、最後に編集したシート名？になってしまうようです。
とういうことで、

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