Excel - Comprobación de fecha + 15 días

Hola que tal, soy nuevo en el foro y también en esto de la programación de VBA en Excel. Tengo un problema con una macro que quiero hacer. Quiero que al abrirse un archivo active la macro. En la hoja 1 hay una columna con fechas. Quiero que el macro cheque las fechas de esa columna y las compare con la fecha actual. Si la fecha de la columna está 15 días adelante de la fecha actual que lance un mensaje (MsgBox) diciendo algo. No se si me explico bien, he tratado de hacerlo declarando dos variables y con "DateAdd" pero realmente estoy algo perdido en esto.

Espero me puedan ayudar, y colaborar con ustedes activamente una vez que aprenda bien VBA en Excel.

Muy buenas.

Sería interesante que pusieras lo que has hecho hasta ahora. Ahí te va algo rudimentario:


Un saludo. Juanjo.

Soy muy novato en esto, apenas de lo que he podido leer estaba tratando de armar algo. Creo que está hecho un lío el código jajaja pero esto es lo que intentaba. Aunque veo que utilizaste un For y luego un condicional If.

Private Sub Workbook_Open()
Dim DateVar As Date
Dim LDate As Date

LDate = DateAdd("d", 15, Date)
DateVar = Range("K2:K241").Find(What:=Date)
If LDate = DateVar Then
MsgBox "Llamar a cliente para calibración de equipo"
Else
MsgBox "No hay calibraciones pendientes"


End If
End Sub

Eso es lo que estaba intentando hacer, pero creo que no estaba haciendo lo que quería, y el mensaje no me salta por lo mismo. Tengo una hoja en el excel llamada "2014" pero no sé si poner el código en "ThisWorkbook" o en "sheet 1". Como verán apenas estoy empezando en esto y ando perdido y medio.

Les agradezco su ayuda, es checar la columna K (sin un número límite de rango porque se van a ir agregando fechas sin saber exactamente hasta que celda) con la fecha actual + 15 días, y si alguna de las fechas leídas concuerda con esa comprobación saltar el mensaje, en caso de que ninguna empate, lanzar el mensaje de que no hay calibraciones pendientes. Por decir, hoy es 12, y si hay una fecha que marque el 27 de noviembre que salte el mensaje, en caso de que no, entonces mandar el otro.