Trying to use Today() function in an IF loop

[rjordanw]

I'm attempting to delete rows with dates beyond tomorrow's date with the following code:

Do While Not IsEmpty(ActiveCell)
If ActiveCell.Value = TODAY + 1 Then
Selection.EntireRow.Delete Shift:=xlUp
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub

It doesn't seem to recognize TODAY as a function. I Tried using Today()+1 like I would in a cell formula but it comes up with an error.

This is obviously part of a macro and not a formula in a cell.

 

[Leith Ross]

Use Date instead.

 

[sunny102]

Yes Leith is right, TODAY is used in excel formulas and Date is equivalent of TODAY in VBA