[[20120523144113]]　『’Worksheets'メソッドは失敗』（DRNORI）　ページの最後に飛ぶ

『’Worksheets'メソッドは失敗』（DRNORI）

 Excel2003で作成した下記のマクロを、Excel2010の環境下で実行すると、With Worksheets("メニュー")の部分で、下記のエラーが出ます。

 改善方法をご教示頂ければ幸いです。　Win7 Excel2010

 Sub メニューに戻る()

        With Worksheets("メニュー")

                     .Activate

        Range("A1").Select

        End With

 End Sub

 エラーメッセージ

 ’Worksheets'メソッドは失敗しました：’_Global'オブジェクト

 提示のコードだけなら正常に動きますが、上記は実際のコードですか？

 メニューシートは実際あるでしょうか。

 (Mook)

 Mook様

 上記は実際に下記の様に使用しているコードで、シート”メニュー”は実在します。

 Private Sub Workbook_Open()

   省略

    Call メニューに戻る

   省略

 End Sub

　(DRNORI)

 もし、複数のブックを扱うVBAだったらシートの親のブックを明示的に指定したらどうかな？

 (春日野馨)

 春日野馨様

 対象とするブックは一つですが、ブック（"Book1"）内のシート（”Sheet1”）に対する”ブック名の明示的な指定”はどのように記述すれば良いのでしょうか？

 (DRNORI)

 Workbooks("Book1").Worksheets("Sheet1")

 のようにするとブックを明示的に指定したことになるよ。

 (春日野馨)

 春日野馨様

 上記の方法により、ブック名を指定することで当初のエラーはなくなり解決しました。

 有難うございました。

 (DRNORI)

コメント返信：