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 · ベストアンサー

（１）("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.でもよい。

お礼

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

回答No.1

zap35

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("Sheet2").Select
ActiveSheet.Range(Target.Address).Select
End Sub

お礼

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