Estoy tratando de desarrollar una alerta que recuerde a las personas a enviar un reporte semanal cuando determinadas fechas (que están seleccionadas en la columna BA) están igualadas con el día actual. El problema es que mi caja de mensaje no se está mostrando, y a pesar de que el código parece ser muy simple, no estoy encontrando una solución al problema. Cambié el día en mi computadora para probar y no paso nada.

El código es el siguiente:

    Sub ReportReminder()
    
    If Date = Sheets(1).Cell("BA15").Value Then
    MsgBox ("Enviar reporte semanal")
    ElseIf Date = Sheets(1).Cell("BA21").Value Then
    MsgBox ("Enviar reporte semanal")
    ElseIf Date = Sheets(1).Cell("BA27").Value Then
    MsgBox ("Enviar reporte semanal")
    ElseIf Date = Sheets(1).Cell("BA33").Value Then
    MsgBox ("Enviar reporte semanal")
    End If
    
    End Sub

Cualquier otro dato que necesiten haganme saber,
Muchas gracias.

Cris