You can try it this way:

Range("D2").Select
' Set Do loop to stop when an empty cell is reached.
Do Until IsEmpty(ActiveCell)
' Insert your code here.
If ActiveCell.Value2 clng(StartDate) Then ActiveCell.EntireRow.Hidden
= True
ActiveCell.Offset(1, 0).Select
Loop

--
Regards,
Tom Ogilvy

"JimI" wrote in message
...
I am trying to compare a date in a cell format "mm/dd/yyyy" against a date
which had been input into a userform [same format] to ultimately hide a
row.

When I use the following code all rows are hidden.
"StartDate" is the variable from the UserForm
[Public StartDate As Date]

Range("D2").Select
' Set Do loop to stop when an empty cell is reached.
Do Until IsEmpty(ActiveCell)
' Insert your code here.
If ActiveCell.Value StartDate Then Selection.EntireRow.Hidden = True
Else
ActiveCell.Offset(1, 0).Select
Loop

If I convert the "D" column to the "Number" format and compare against the
number format date for "StartDate" the macro works. Where am I formating
incorrectly? Thanks