Thank You Simon :)

[peteriks]

Now there will be another trick
In one worksheet user pick-up a date (moves curson on it)
and from another worksheet macro must find that date
Well ...

[Simon Lloyd]

Hi paste this into the worksheet module (whichever you like) change the sheet names to the desired sheets and change the range to encompass the range on your sheet its going to select the date on.

It worked fine for me as long as the date is within the range!

Regards,
Simon

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim mycell
Dim rng As Range
Dim rng1 As Range
Dim Cell
Set rng1 = Sheets("Sheet2").Range("A1:C20")
Set rng = ActiveCell

With rng1
For Each mycell In rng1
If mycell.Value = rng.Value Then
Sheets("Sheet2").Select
mycell.Select
ElseIf rng.Value = "" Then
Exit Sub
End If
Next
End With

End Sub

[peteriks]

Simple and working