Hyperlink to today's date

G

Grim/Don

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

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

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

Thanks for the help again
 
D

David McRitchie

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
 
Top