code works fine for me.

--
Regards,
Tom Ogilvy

"Janis" wrote in message
...
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