¿Cómo puedo comprobar si la fecha de una celda de Excel es dentro de una semana?

Question

Estoy usando VBA en Excel 2010 para hacer un programa simple recordatorio de cumpleaños. Tengo una columna de fechas (Columna D). ¿Cómo puedo comprobar si una célula está dentro de una semana de hoy?

No estoy seguro de lo que sería la sintaxis VBA para la declaración condicional:

For i = 2 To MAX_ROW
    cell = ActiveSheet.Cells(i, 4)
    If (Date(cell) - Date(Now()) <= 7) Then
      MsgBox(ActiveSheet.Cells(i, 1)
    End If
Next

Answer 1

Si las celdas contienen los cumpleaños reales, tendrá que cambiar el año para el año en curso, por ejemplo:

If DateSerial(Year(Date), Month(Cell), Day(Cell)) - Date <= 7 Then