シート名を取得する関数・・・て無いので複数の関数を使うんですね。
ということでその呪文のような関数はこれ
=RIGHT(CELL(“filename”,A1),LEN(CELL(“filename”,A1))-FIND(“]”,CELL(“filename”,A1)))

個々の関数の説明

しかし、filenameのところでシート名を取得できるような項目作ってくれれば一発で終わるのに。。。なんで作らないんだろ。