VBA シートアクティブ オブジェクト指定

Question

book1のマクロからbook2のあるシートをアクティブにしたいのですが、
そのシート指定の際にオブジェクト名で指定することができません。
私のコードでは以下のようにシートをオブジェクト名で指定しております。

Sub sheetObjectActivate()

Workbooks("book2.xlsm").Sheet3.Activate

End Sub

しかし上記のコードですと、

というエラーメッセージが出てきてしまいます。

もちろんシートの指定をインデクスでの指定やシート名での指定ですと問題無くアクティブにできます。
ただインデクスやシート名ですと、シートの順番を変えてしまったり、シート名を変更したいときにマクロの書き換えも必要になるので、できればオブジェクト名で指定をしたいと思っております。

シートをアクティブにする際にオブジェクト名での指定方法はございますでしょうか。

Answer 1

Sub sheetObjectActivate()
    Dim ws As Worksheet
    For Each ws In Workbooks("book2.xlsm").Worksheets
        If ws.CodeName = "Sheet3" Then
            ws.Activate
            Exit For
        End If
    Next
End Sub

Comments

[tttkkk]

ご丁寧にコードを載せていただきありがとうございます。
また日ごろから私の質問に回答してくださり非常に助かります。

私が使っていたオブジェクト名というのはCodeNameで取得できるのですね。
この教えていただけた方法であれば、以前jinoji様に教えていただいたように自身で関数を作成してしまえば、効率よくマクロを書けるのではないかと思いました。

やはりこのようなコードを書かない限りは他ブックのシートを簡単にオブジェクト名で指定することはできないということでしょうか。

Answer 2

多分 Sheet3 なんていうオブジェクトはないです。
Workbookオブジェクトにぶら下がっているSheetオブジェクトの一覧の中には
オブジェクトに付けた名前（文字列）としてSheet3というのはあると思います。

それを踏まえて公式リファレンスを見ると、どのサンプルが使えるのかが見えてくると思います。

Workbook オブジェクト (Excel)
https://docs.microsoft.com/ja-jp/office/vba/api/excel.workbook

質問に対しては↑だけで解決します。↓こっちはおまけ。使いこなしたい場合に見ると良いかと。
Sheets オブジェクト (Excel)
https://docs.microsoft.com/ja-jp/office/vba/api/excel.sheets

追記分1

コード付きで回答来ちゃったので出しちゃいますが
book1、book2がどちらも開いている状態ならこれでOKです。

Workbooks("book2のファイル名").Worksheets("book2のシート名").Activate

しかし、もしbook2が開いていない状態ならこうなります。

Workbooks.Open("book2のファイル名").Worksheets("book2のシート名").Activate

追記分2

※コメントやり取りの整合性を保つため、以前の記載は残しておきます。

失礼しました。要件が頭に入っていませんでした。
その要件ですと、基本的に jinojiさんのやり方に収束していくと思います。
私の回答によりかえって混乱させてしまい申し訳ありませんでした。

ウォッチ式でオブジェクトを確認してみましたが、CodeName以外に使えそうなプロパティは見つかりませんでした。

Workbooks配下

WorkSheets配下

おまけ: あらかじめシートオブジェクトを確保して、使う時に簡単に呼び出せるようにした場合

予めDictionaryを使って、Key=CodeName、Value=WorkSheetオブジェクトを格納しています。
自分で書いておきながら関数を書くコストがより高くなってしまう上に
シート名が変わった時はマクロのブックを開きなおす必要があったりとかなり微妙orz

標準モジュールのコード

Attribute VB_Name = "Module1"
Dim dic As Object

Sub Auto_Open()
    Set dic = CreateObject("Scripting.Dictionary")
    For Each ws In Workbooks("book2.xlsx").Worksheets
        dic.Add ws.CodeName, ws
    Next
End Sub

Sub SheetObjectActivate()
    dic("Sheet1").Activate
End Sub

Sheet1のコード

' ボタンのクリックイベントハンドラ
Private Sub CommandButton1_Click()
    Call SheetObjectActivate
End Sub

長文失礼しました。

Comments

[tttkkk]

確かに仰る通りです。
シートオブジェクトでの指定ではなく
オブジェクト名での指定です。

大変申し訳ございません。
頂いたURLを見てもオブジェクト名でのシート指定について解決できなかったのですが、教えていただけないでしょうか。

[neonemo]

あー、なんか分かったかもです。
【book2.xlsm】とVBAを書いたファイルを両方開いた状態で動きますか？

閉じているファイルは一度、【Workbook.Open】で開く必要があります。相対パスだと見つからないとかでハマるので、絶対パスで動くかどうかを見て、後程カレントフォルダで動くように調整する等でしょうか。
https://docs.microsoft.com/ja-jp/office/vba/api/excel.workbooks.open

[neonemo]

回答を直した方が良いですね。修正します

[tttkkk]

コード付きでのご回答ありがとうございます。

neonemo様コードですと、アクティブにしたいシートの取得にシート名を使用していらっしゃいます。
シート名やシートの順番でシートを取得してしまいますと、シート名の変更やシート順番の変更に対応できないので、控えたいと思い、本質問をさせていただきました。

neonemo様としては、マクロが書いてあるブックとは別ブックのシートをオブジェクト名でアクティブにできる方法はご存知でしょうか。

[tttkkk]

追記分２でご丁寧に説明して下さりありがとうございました。
やはり他ブックのシートをアクティブにする際は、単にインデクスやシート名と同じようにオブジェクト名で指定するのではうまくいかないんですね。

jinoji様のコードを参考にfunctionを作成して、効率よいオブジェクト名の取得を考えたいと思います。