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

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

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

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

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

No.1 ベストアンサー 回答者： KenKen_SP 回答日時： 2006/08/12 15:39

こんな感じです。

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

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

この回答へのお礼

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

お礼日時：2006/08/12 18:29

No.2 回答者： kenken0 回答日時： 2006/08/12 15:45

変数 = セル.Value

という形にして、セルの値を取得します。

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

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

この回答へのお礼

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

お礼日時：2006/08/12 18:30