セルの値と同じ名前のシートをアクティブにするには？

質問

最近、マクロを始めた初心者です。

教えてほしいことは、
セルの値と同じ名前のシートアクティブにして、
そのシートのあるセルをアクティブにしたいと思っています。
例えば、　A1＝"合計"なら、Sheets"合計"をアクティブにして、"合計"のB1をアクティブにする方法です。

既に、このどこかで質問されている内容かもしれませんが、見つけることが出来ませんでした。

どなたか教えてください！

回答No.1

KenKen_SP · ベストアンサー

こんな感じです。

Sub Sample()

　　Dim strSN As String

　　' 変数 strSN にアクティブシートの A1 セルの値を代入
　　strSN = ActiveSheet.Range("A1").Value

　　' 変数 strSN の名前をもつシートをアクティブにする
　　Worksheets(strSN).Activate

　　' 変数 strSN の名前をもつシートの B1 セルをアクティブにする
　　Worksheets(strSN).Range("B1").Activate

End Sub

VBA のヘルプで、キーワード

　　Range, Value, Activate, ActiveSheet, Worksheets

を調べて下さい。頑張って^^

お礼

完璧です。
やりたいことが一発で出来ました。
ほんとうにありがとうございます。

回答No.2

kenken0

変数 = セル.Value
という形にして、セルの値を取得します。

後は、Sheets(変数).Select
というように書いて、シートを選択します。

わからなければ補足で教えてください。

お礼

No.1と同じ方ですか？
どちらも大変参考になりました。
うまくいきました。
ありがとうございます。