Macro para avisar con un mensaje dependiendo del resultado de una celda

¿En las celdas E2 a E30 tienes valores? Por ejemplo: 349, 350, 360, ¿etc? ¿O tienes fechas?

si tengo valores 349, 350 , 366

Esta sería la macro

Sub revisar()
'Por.DAM
u = 30
u = Range("E" & Rows.Count).End(xlUp).Row
For i = 2 To u
    If Cells(i, "E") > 350 And Cells(i, "E") <= 365 Then
        MsgBox "CUIDADO, EN LA FILA: " & i & ", FALTAN POCOS DÍAS PARA CUMPLIR EL AÑO," & _
               "PARA LA PRÓXIMA CALIBRACIÓN", vbCritical, "ALERTA"
    ElseIf Cells(i, "E") > 365 Then
        MsgBox "LA FILA: " & i & ", ES MAYOR A UN AÑO", vbCritical, "ALERTA"
    End If
Next
End Sub

Si quieres que llegue hasta la fila 30, borra en la macro esta línea

u = Range("E" & Rows.Count).End(xlUp).Row

Si quieres que llegue hasta la última fila de la columna E, entonces borra esta línea

u = 30

Saludos. Dante Amor
Si es lo que necesitas.

muchísimas gracias funciono de maravilla, como podría hacer para que esta macro corriera cuando habrá el archivo de excel