VBA初学者です。シートがアクティブになりません。

Question

VBA初学者です。ご回答よろしくお願い致します。

##（１）説明
Sub test7()
ThisWorkbook.Worksheets("1月").Activate
End Sub

上記コードを
１、ThisWorkbookをアクティブ状態で、実施すると正常に作動します。
２、他のブックをアクティブ状態で、実施しても正常に作動します。

##（２）説明
Sub test8()
ThisWorkbook.Worksheets(Worksheets("メニュー").Range("C6").Value).Activate
End Sub

※**Worksheets("メニュー").Range("C6").Value**は、ThisWorkbookの中にあるシートで『1月』が出力されます。そのため一応は（１）のコードと同じ内容になります。

上記コードを
１、ThisWorkbookをアクティブ状態で、実施すると正常に作動します。
２、他のブックをアクティブ状態で、実施するとエラーが出ます。
実行時エラー'-2147352565(8002000b)':クラスが登録されていません

##まとめ

実施したこと	（１）のコード	（２）のコード
-	シート名を直接『１月』と入力	シート名をオブジェクト.Valueで『１月』とする
ThisWorkbookアクティブ状態で、コード実施	○作動	○作動
他のブックをアクティブ状態で、コード実施	○作動	×エラー

##問い
なぜ、『他のブックをアクティブ状態で、コード実施』時のみ、エラーが出るのですか？

ご回答よろしくお願い致します。

Answer 1

Sub test8()
   ThisWorkbook.Worksheets(ThisWorkbook.Worksheets("メニュー").Range("C6").Value).Activate
End Sub

Comments

[ta-]

回答ありがとうございます。

別ブックをアクティブ状態にしているので
一つ一つのオブジェクトに対して、ThisWorkbookから指定していく必要があるという事ですね！