Hyperlink to today's date

[Grim/Don]

That worked, but I got a syntax error (popped up with the second lin
indicated)

You could select another sheet and return.

or as you asked for selection on A2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if target.address <> "$A$2"
Dim val As Long, r As Long
val = Date
r = Application.Match(val, Range("A2:A65536"), 1) + 1
Application.Goto Cells(Application.Max(2, r - 9), 1), Scroll:=True
Application.Goto Cells(r - 3, 1)
End Sub

---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

Sweet! Works like a charm, but... I have to share this sheet wit other
and I think that the double-clicking-to-the-date may confuse the (if
they try to edit a cell).

Is there a way to map it to a hot key? Or make it so if I click i A2
it jumps to the date?

(the scrolling to three rows up was a nice touch!)

Thanks for the help again!

http://www.excelforum.com/showthread.php?threadid=260782