I hate to nit pick but... if your first row is not populated then it is not
part of the used range and the code exits the for loop (before it even gets
to the populated data). Additionally if no matching dates are found then the
Select line at the end will throw an error... There is every possibility that
this does not make one bit of difference but it is worth noting...
--
HTH...

Jim Thomlinson


"Gary''s Student" wrote:

Try:

Sub demo()
Dim d As Date, r As Range
d = InputBox("Enter date: ")
Set r = Nothing
For i = 1 To 65536
If Intersect(Cells(i, 1), ActiveSheet.UsedRange) Is Nothing Then
Exit For
End If
If Cells(i, 1).Value = d Then
If r Is Nothing Then
Set r = Cells(i, 1).EntireRow
Else
Set r = Union(r, Cells(i, 1).EntireRow)
End If
End If
Next
r.Select
End Sub
--
Gary's Student


"Alberto Pinto" wrote:

Hi!

How can i programatically select cells that correspond to user input data
(such as date).
Ie, i want to ask a user a date and then programatically select all rows
that have that date value at column A.

Thanks in advance.