Excel2000 VBA ダブルクリックで別シートの同番地セルへ移動

sheet1とsheet2　の２つのシートがあります。
sheet1のA1セルをダブルクリックすると、sheet2のA1セルへ移動させたいのですが、
下記のコードで実行すると、
'Range'メソッドは失敗しました：'_WorkSeet'オブジェクト
のエラーメッセージが表示されました。

どうぞアドバイスお願い致します。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

　　Sheets("sheet2").Select
　　Range("Target.Address").Select

End Sub

No.2 ベストアンサー 回答者： imogasi 回答日時： 2007/09/21 20:46

（１）("Target.Address").と””で囲んで,リテラルの文字列である「TargetAddress」という文字列にしてしまってはダメ。

変数のままで使う。
（２）標準モジュールで
Sub test02()
Worksheets("Sheet2").Range("A1").Select
End Sub
はエラー。
RangeのSelectはActivateかSelectかしておくと
Sub test02()
Worksheets("Sheet2").Activate
Worksheets("Sheet2").Range("A1").Select
End Sub
ならOK。
結局
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("sheet2").Activate
Sheets("sheet2").Range(Target.Address).Select
End Sub
Sheets("sheet2").はActiveSheet.でもよい。

この回答へのお礼

私のコードのだめな理由も指摘していただいて、スッキリ解決しました。丁寧なアドバイスありがとうございました。

お礼日時：2007/09/21 21:03

No.1 回答者： zap35 回答日時： 2007/09/21 19:23

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Sheets("Sheet2").Select
ActiveSheet.Range(Target.Address).Select
End Sub

この回答へのお礼

早速の回答ありがとうございました。
助かりました。

お礼日時：2007/09/21 20:57