If Not (form1.Date1.Value = "" And form1.Date2.Value = "") Then
For Each cell In Range(Cells(2, 1), _
Cells(Worksheets("Data").UsedRange.Rows.Count - 1, 1))
If Not (cell.Value = cdate(form1.Date1.Value) And _
cell.Value <= cdate(form1.Date2.Value) ) Then
cell.EntireRow.Hidden = True
End If
Next cell
End If

--
Regards,
Tom Ogilvy



"Matt" wrote:

I have a text box on a form and i'd like to be able to use it to enter
a date in the format mm/dd/yy and compare it to cells that have the
date format

If Not (form1.Date1.Value = "" And form1.Date2.Value = "") Then
For Each cell In Range(Cells(2, 1), _
Cells(Worksheets("Data").UsedRange.Rows.Count - 1, 1))
If Not (cell.Value = form1.Date1.Value And _
cell.Value <= form1.Date2.Value) Then
cell.EntireRow.Hidden = True
End If
Next cell
End If

currently, when excuting this code, even entering the dates in the
format mm/dd/yyyy causes all rows to be hidden

any help would be great