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


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=570669