Когда Excel загружается, перемещайте окно просмотра в определенную ячейку

У меня есть лист Excel с календарем. Однако этот календарь начинается с начала года. Я пытаюсь настроить сценарий VBA, чтобы при загрузке excel он переходил к столбцу с сегодняшним днем.

Я дошел до того, что нахожу столбец в виде числового значения, но не могу заставить его перейти в этот столбец.

Private Sub Workbook_Open()

Dim Today As Date: Today = Date
Dim VarianceDate As String: VarianceDate = Today
Dim TargetCell As Range, TargetCol As Integer

Set TargetCell = Rows("2").Find(What:=CDate(VarianceDate), LookIn:=xlFormulas, LookAt:=xlPart)
If Not TargetCell Is Nothing Then TargetCol = TargetCell.Column

Debug.Print TargetCol

End Sub

Это напечатает 165.