Hi Maria,

Try this

Dim ans
Dim c As Range

ans = InputBox("Input date")
If Not IsDate(ans) Then
MsgBox "Invalid date"
Exit Sub
Else
Worksheets("Sheet2").Activate
Set c = Columns(1).Find(ans, LookIn:=xlValues)
If Not c Is Nothing Then
c.Activate
End If
End If

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Maria" wrote in message
...
Hello!

I am trying to do the following: The user chooses a cell
via an InputBox (the cell contains a date); then the macro
needs to switch to another sheet an find this value/the
date in Column "A" and activate it. I just don't know how
to adress it ... Can anybody help?

Thanks,

Maria