Ga naar vandaag (met lege kolommen er tussen)

[gigabit]

Ik gebruik de volgende code om naar de kolom te gaan van de huidige datum wat goed werkt als er geen lege kolommen tussen staan.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Range.Address = "$A$1" Then
Range("D1").Select
ActiveWindow.SmallScroll ToRight:=Date - Range("1").Value
End If
End Sub

Nu heb ik een document waar tussen de datums telkens een lege cel zit waardoor ik in de verkeerde kolom terecht kom.
Wie weet hiervoor een oplossing?

[P_Tingen]

Bij het deel

ActiveWindow.SmallScroll ToRight:=Date - Range("1").Value

moet je dus de teller veranderen. Je trekt hier van de datum 1 af en dat aantal ga je naar rechts? Probeer de rechterkant eens x 2 te doen. Dus iets als

ActiveWindow.SmallScroll ToRight:=(Date - Range("1").Value)*2

Ik kan het hier zo niet testen, dus je moet wellicht nog wat tweaken. Misschien nog +1 of -1 erachter als je net scheef zit.