Situar el cursor y la pantalla al principio de semana en una lista de fechas

[zelarra821 6]

Buenas tardes. Estoy intentando, mediante VBA, conseguir que me sitúe la pantalla al principio de semana en una lista de fechas y el cursor en la fecha actual. Es decir, tengo lo que podéis ver en la Imagen1, y cuando la fecha actual sea, por ejemplo, el martes, 8 de diciembre, que se coloque como en la Imagen2, y así sucesivamente (es decir, que en el resto de la semana aparezca en pantalla primero el lunes, y el cursor en la fecha que sea). Pongo esa fecha del 8 de diciembre para tener una columna bastante lejos de las primeras columnas.

Estas son las pruebas que he realizado pero no doy con la tecla:

Sub IrADiaDeHoy()
    Dim Celda As String
    'Celda = Range("1:1").Find(Date).Address
    Celda = "q1"
    'Application.Goto Range("A1"), True
    If Weekday(Range(Celda), vbMonday) = 1 Then
        Application.Goto Range(Celda), False
    Else
        MsgBox Weekday(Date, vbMonday) * -1
        Application.Goto Range(Celda).Offset(0, Weekday(Date, vbMonday) * -1), False
        'Range(Celda).Select
    End If
    'Range(Celda).Offset(1, 0).Select
End Sub

 

[zelarra821 6]

Aquí dejo la solución:

Sub IrADiaDeHoy()
    Dim Lunes As Variant
    Dim CeldaLunes As Variant
    Dim CeldaHoy As String
    
    Application.ScreenUpdating = False
    Lunes = IIf(Weekday(Date) = 2, Date, IIf(Weekday(Date) = 1, Date - 6, Date - (Weekday(Date) - 2)))
    Set CeldaLunes = Range("1:1").Find(Lunes, LookIn:=xlFormulas)
    Application.Goto CeldaLunes, True
    CeldaHoy = Range("1:1").Find(Date, LookIn:=xlFormulas).Address
    Range(CeldaHoy).Offset(1, 0).Select
    Application.ScreenUpdating = True
    ActiveSheet.Protect
End Sub