マクロエラー処理

下記のマクロを実行すると、If (.Range　のところでコンパイルエラー参照が不正または不完全です。というメッセージが出るのですが、どこを修正すればよいのでしょうか
教えてください。

Sub 再表示1()
Dim SheetName As String
Dim i As Integer
Dim LastRow As Integer
Dim rng As Range

LastRow = 3000 '最終行の番号

Sheets("ＡＣＴ").Select
For i = 6 To LastRow
If (.Range("D" & i) = "A310" Or .Range("D" & i) = "A505") And .Range("V" & i) < 0 Then
.Cells(i, "W").Resize(1, 3).ClearContents
End If
Next
Stop

End With
End Sub

No.2 ベストアンサー 回答者： hana-hana3 回答日時： 2005/08/25 13:16

".Range" となっていますよね。

↑

このコードでは End With がありますが、始まり（With ～）が定義されていませんよね？

Stop は不要かと。

No.1 回答者： axiz 回答日時： 2005/08/25 13:16

End Withは何にかかっていますか？

もしかしたら、With Sheets("ＡＣＴ")とかが抜けていませんか？