This should be close...

Sub FindDates()
Dim rngFound As Range
Dim rngFoundAll As Range
Dim rngToSearch As Range
Dim wksToSearch As Worksheet
Dim strFirstAddress As String
Dim dtmToFind As Date

On Error Resume Next
dtmToFind = CDate(InputBox("Enter the Date to Find"))
On Error GoTo 0
If dtmToFind = 0 Then Exit Sub
Set wksToSearch = Sheets("Sheet2")
Set rngToSearch = wksToSearch.Columns("A")
Set rngFound = rngToSearch.Find(What:=dtmToFind, _
LookIn:=xlFormulas)
If rngFound Is Nothing Then
MsgBox "Sorry. Could not find your date"
Else
Set rngFoundAll = rngFound
strFirstAddress = rngFound.Address
Do
Set rngFoundAll = Union(rngFound, rngFoundAll)
Set rngFound = rngToSearch.FindNext(rngFound)
Loop Until rngFound.Address = strFirstAddress
wksToSearch.Select
rngFoundAll.Select
End If
End Sub

--
HTH...

Jim Thomlinson


"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.