Hi,

You could try this. Right click the sheet tab, view code and paste this in:-

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub
If Target.Address = "$B$1" Then
lastrow = Range("A65536").End(xlUp).Row
Set MyRange = Range("A1:A" & lastrow)
For Each c In MyRange
If c.Value = Target.Value Then
c.Offset(0, 1).Select
Exit Sub
End If
Next
End If
End Sub

Mike

"Gav" wrote:

Col A contains a list of dates. In Cell B1 I enter a single date. How do I
write a macro to find the cell in Col A with the date which matches B1 and
make it the Active Cell. I could use Edit/Find but do not want to re-enter
the B1 date in 'Find what:'. I want the macro to use the B1 date
automatically.