Перейти к дате / заголовку столбца

Некоторое время назад я написал процедуру, которая переходила на соответствующую строку при нажатии кнопки (январь, февраль, март ..). Это всегда относилось к одной области. Теперь мне нужно применить то же самое к заголовкам столбцов. Заголовки имеют формат «01.01.2018».

Как адаптировать код сейчас? у кого-нибудь есть идея?

приветствие

Sub PrcCurrentMonth()

Dim vNumber As Long
Dim vDate As Date
Dim vMonth As Variant
Dim vRange As Range

On Error GoTo ExitSub

vMonth = ActiveSheet.Shapes(Application.Caller).DrawingObject.Caption
vNumber = WorksheetFunction.Match(vMonth, Application.GetCustomListContents(7), 0)
vDate = DateSerial(2018, vNumber, 1)


Set vRange = ActiveSheet.Range("D4:ABK4").Find(vDate, lookat:=xlWhole, LookIn:=xlValues)

    If Not vRange Is Nothing Then
        Application.GoTo vRange, True
        Set vRange = Nothing

    End If

ExitSub:
End Sub