Need Hyperlink for a wordart to automatically scroll down to todays date

[RickerFricker]

Hi Everyone,

I have spreadsheet that my team will have to access almost daily. Column A (starting at A3 and going down) is just dates. I am trying to make a Wordart at the top of the page that is clickable, and will take me to today's date. Eventually this will be far down the list. I know how to add a hyperlink, I am just struggling to make this work.

How it looks:
11/20/2017
11/21/2017
11/22/2017


Thank you

 

[Fluff]

Hi & welcome to the board.
Not sure if it's possible with hyperlinks, but you could use VBA.

Sub FindToday()
Dim Fnd As Range
Set Fnd = Columns(1).Find(Date)
If Not Fnd Is Nothing Then ActiveWindow.ScrollRow = Fnd.Row
End Sub

 

[RickerFricker]

I am not familiar with Visual Basic. I created a command button and put this in the code. Nothing happens when I click on it. Do I have to add info to these () ?

Sub FindToday()
Dim Fnd As Range
Set Fnd = Columns(1).Find(Date)
If Not Fnd Is Nothing Then ActiveWindow.ScrollRow = Fnd.Row
End Sub

 

[Fluff]

You can use wordart as per your op, once created rightclick & select assign macro & then in the dialogue box that appears select FindToday. then simply click on the wordart

 

[RickerFricker]

Got it. Works perfectly! Thank you for all your help!!!

 

[Fluff]

Glad to help & thanks for the feedback