rangeクラスのselectメソッドが失敗

質問

お世話になっております。
ExcelのVBAマクロについて質問があります。

Sheet1にボタンを設置し、Sheet2のセルA1をselectするという単純なものですが、タイトルのエラーが出て実行されません。
エラーを回避するためにはSheet2をアクティブにする必要があるという事まではわかったので、Active.indexでSheet2がアクティブになっていることを確認したのですが同様のエラーが出ました。
何か解決策がございましたら、ご教示のほどよろしくお願いします。

Excel2003にて作成

worksheets(2).Activate
Range(″A1″).Select

追記
もしよければworksheetsの頭文字が小文字になる原因もわかる方がいたらご教示のほどよろしくお願いします。

回答No.1

keithin · ベストアンサー

あなたが作成したマクロの一部しか情報提供されていないので、定かには言えませんが。
ワークシート上に「コントロールツールボックス（ActiveXコントロール）」のコマンドボタンを配置して、そのマクロに記述している状況と推測されます。

次のようにすると出来ます。

作成例１：
今のマクロのまま

worksheets("Sheet2").activate
worksheets("Sheet2").range("A1").select

と記述する。

作成例２：
ＡＬＴ＋Ｆ１１を押して挿入メニューから標準モジュールを挿入し
現れたシートに

sub macro1()
worksheets("Sheet2").select
range("A1").select
end sub

と記述、ワークシートに戻って「フォーム」のコマンドボタン、もしくはオートシェイプの図形などでボタン絵柄を作成、右クリックして上述マクロを登録して実行する。

＞もしよければ

新しいご相談として、別途詳しい状況を添えてご質問を投稿してください。
一つのご相談で、ご質問は一つだけで。

お礼

無事に例1を使用することで解決することが出来ました。
ありがとうございました。

回答No.2

watabe007

おそらくシートルモジュールのCommandButton1_Clickを使ったのでは
だとすると
Range(″A1″).Select
は、Sheet1のセルを選択している事になりエラーが出たのですね

With Worksheets(2)
　　.Activate
　　.Range("A1").Select
End With

これで、如何でしょうか