EXCELのシート名を自動参照

質問

EXCELのワークシートの名称を、例えばA1セル内にある文字列を参照させて変更させるマクロは可能でしょうか？

具体的には
・日々使用している様式（ワークシート）をコピー
・コピーしたシートへ、他のファイルからデータを貼付
・貼付けたデータのひとつのセルを参照してワークシートの名前を変更
といった作業をマクロで一発処理しようと考えています。
参照させるデータはロットナンバーですので、毎回異なります（セルは同一です）。

単純にマクロの記録で該当セルをコピーした後、名前タブへ貼り付けてもうまくいきませんでした。

回答No.1

mshr1962 · ベストアンサー

見出し名称を変えるだけなら
Sub Macro1()
ActiveSheet.Name = Range("A1").Value
End Sub
でできます。

お礼

なるほど！簡単に出来ました。
マクロは上辺で使ってるだけなので応用が利かなくて・・・。
ありがとうございました。

回答No.2

nobu555

下記マクロで如何でしょう。
アクティブシートの名前をセルA1に
入力されている文字列に変更します。

Sub シート名変更()
ActiveSheet.Name = Range("A1").Value
End Sub

お礼

お蔭様で簡単に出来ました。
ありがとうございました。