マクロのエラー「オブジェクトが必要です」の対策を教えてください

よろしくお願いします。エクセルは２０１３です

自分なりにスマートなマクロができたと思ったら
「オブジェクトが必要です」のエラーです

シートモジュールの
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
に書いてある下記マクロの
'その１つ右の値
'その２つ右の値
が間違っていると思います
どう直せばよいでしょうか？
どなたか教えてください

If Not Intersect(Target, Range(wav_area)) Is Nothing Then
'　Range(wav_area)でWクリックされたら
　　Cancel = True
　　With Target
　　　　　If .Value <> "" Then　　'Wクリックされたセルがヌルでなければ
　　　　　　For i = 7 To 16 'コピー先の行
　　　　　　If Range("X" & i) = "" Then
　　　　　　　Range("X" & i) = .Value　'Wクリックされたセルの値
　　　　　　　Range("X" & i) = .Value.Offset(0, 1).Value　'その１つ右の値
　　　　　　　Range("X" & i) = .Value.Offset(0, 2).Value　'その２つ右の値
　　　　　　　Exit For '1回毎に抜けて次のWクリックを待つ
　　　　　　End If
　　　　　　Next i
　　　　　End If
　　End With
End If

No.1 ベストアンサー 回答者： siffon9 回答日時： 2017/01/04 09:19

Range("X" & i) = .Value.Offset(0, 1).Value　'その１つ右の値

Range("X" & i) = .Value.Offset(0, 2).Value　'その２つ右の値
↓
Range("X" & i) = .Offset(0, 1).Value　'その１つ右の値
Range("X" & i) = .Offset(0, 2).Value　'その２つ右の値

この回答へのお礼

siffon9さんお早うございます
昨年も大変お世話になりました
迅速に教えていただきありがとうございます

年末に
Select Case True
を教えていただきました
ありがとうございました
お陰様でずっと見通しの良いマクロになりました

相談しましたマクロは自分なりに進歩したと思ったらエラーでした

Rangeを色々つけてみましたがエラーが取れず、質問させて
いただきました

正解を書いていただくと「なるほど、確かに」と納得しますが
こんな簡単なことでお手上げでした

今回、教えていただいたので覚えました
次回から大丈夫です

早朝でだれも居ないかなと思いましたが
すぐ教えていただき助かりました
ありがとうございました

本年もよろしくご指導お願いします

お礼日時：2017/01/04 09:35