〖緊急〗エクセルのＶＢＡについて質問です。

質問

エクセルのＶＢＡを使用して、下記の動作を実行したいのですがうまくいきません。
おしえてください。
sheet1に移動したいシート名の一覧を作成し、一覧を参照してシートを移動したいです。
RangeにカーソルをあてるとＡ1に入力したシート名前が反映しているようなのですが・・・。

sheet1のセルＡ1に移動させたいシート名を入力しています。

Sub Worksheet()
Worksheets(Range("A1")).Activate
End Sub

※❝インデックスが有効範囲にありません❞とエラーがでます。
※同一のＢＯＯＫ内での作業です。

よろしくおねがいします。

回答No.3

okormazd

Worksheetsは、Sheetsコレクションを返すプロパティでしょう。
Sheetsを指定してやらないと、「インデックスが有効範囲にありません」になりますね。

例
Worksheets("Sheet1").Range("A1").Activate

回答No.2

mt2008

Worksheets(Range("A1").Text).Select
または
Sheets(Range("A1").Text).Activate

あと、プロシージャ名に「Worksheet」と付けても動きますが、混乱の元です。
もっと適切な名前を付けましょう。

回答No.1

m_and_dmp

Sub Worksheet()のWorksheetという名前がいけないのでは？
他の名前に変更して実行してみてください。