defining a range compile error

[Janis]

I get an invalid procedure call on defining the Rng variable. Why is that it
looks like it should work.

Thanks,

Sub deleteDateRow1()
Dim Rng As Range
Set Rng = Range("A1")
With Rng
If IsDate(.Value) Then
FrReptDate = .Value
ToReptDate = .Offset(0, 1).Value

..EntireRow.Delete Shift:=xlUp
Else
Exit Sub
End If
End With
End Sub

 

[Tom Ogilvy]

code works fine for me.