Thank You Simon :)
 

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 ... :)


--
peteriks
------------------------------------------------------------------------
peteriks's Profile: http://www.excelforum.com/member.php...o&userid=37011
View this thread: http://www.excelforum.com/showthread...hreadid=570669

Thank You Simon :)
 

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

Thank You Simon :)
 

Simple and workin

--
peterik
-----------------------------------------------------------------------
peteriks's Profile: http://www.excelforum.com/member.php...fo&userid=3701
View this thread: http://www.excelforum.com/showthread.php?threadid=57066