シートの見出しをセルに反映したい

質問

コピーしたシートの見出しを変更したら、コピーしたシートの特定セルに反映したいのですが、何か良い方法はありますか？

回答No.2

marbin

関数での方法です。
エラーになる場合は、一度ブックを保存あるいは上書き保存、
F9キーで更新、などを試行してみてください。

=MID(CELL("FILENAME",A1),FIND("]",CELL("FILENAME",A1))+1,256)

VBAで行う方法もあります。

ActiveSheet.Range("A1").Value = Activesheet.Name

お礼

ありがとうございます。
いろいろなエクセルの本を読みましたが、
どうしてもわからないので、質問してみました。
教えて頂いた方法で、仕事がはかどります。
本当にありがとうございました。

回答No.1

shikisaito

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

お礼

回答ありがとうございます。
教えて頂いた方法で仕事がはかどります。