セルの値をシートの名前に引用

Question

セルの値をシートの名前に引用したいです。

【したいこと】
Cells(1, 1).Value = Worksheets(セル(1,1)の値)にしたいのですが、どのように宣言すればいいのか分からず質問させて頂きました。
※Cells(1,1)=Worksheetsの名前は予め同じ名前で設定はしています。添付写真がそれです。

添付は2つ分ですが、今後30個以上を想定しており、ツールを作成しています。
やり方を御教授頂けると幸いです。宜しくお願い致します。

Answer 1

こういうことですか。

Public Sub sample()
    Dim name As String
    name = Cells(6, 1).Value
    Cells(1, 1).Value = Worksheets(name).Cells(1, 1).Value
End Sub

Comments

[somechan1]

言葉足らずで申し訳御座いませんでした。

具体的にやりたいことは
①添付写真の名前で保存されているブックをworkbook.openで開く
②各名前のシートに転記していく
になります。①はcells(1,1).valueを用いて、開くブックに引用できたのですが
②の場合の書き方が分からなく質問致しました。

定数の場合のsheetの宣言が分からなく質問致しましたが、tatsu99さんのように記載した結果、無事実行できました。初歩的な質問に関わらず、ありがとうございました。

sheet