След като имаш всички дати, а не само работните дни, може и без цикъл:

Sub CurrentDateActivate()

Dim lngRow As Long

lngRow = Date - DateSerial(Year(Date) - 1, 12, 31)
Worksheets("Sheet1").Cells(lngRow, 1).Activate

End Sub

Съдържаниет е скрито
Влезте за да го видите