Buscar fechas con celdas de caracteres combinados

hola caballero buen días

de nuevo consultado a su conocimiento el problema es:

con el siguiente código comparo el contenido de las celdas y me ejecuta una alerta si este coincide pero tengo celdas con fechas y texto el mismo tiempo lo que deseo es si hay forma de hacer que me compara estas celdas también de ante mano muchas gracias:

'Declaración de variables

Dim N As Integer

Dim Texto As String

'Fecha de Factibilidades antes de Aprobación BC

For N = 31 To 9999

If Date - 5 = Cells(N, 14) Then Texto = Texto & Cells(N, 10) & Chr(13)

If Date - 4 = Cells(N, 14) Then Texto = Texto & Cells(N, 10) & Chr(13)

If Date - 3 = Cells(N, 14) Then Texto = Texto & Cells(N, 10) & Chr(13)

If Date - 1 = Cells(N, 14) Then Texto = Texto & Cells(N, 10) & Chr(13)

If Date - 1 = Cells(N, 14) Then Texto = Texto & Cells(N, 10) & Chr(13)

If Date = Cells(N, 14) Then Texto = Texto & Cells(N, 10) & Chr(13)

siguiente:

Next N

If Texto <> "" Then

Texto = Cells(30, 14) & Chr(13) & Texto

MsgBox Texto, vbCritical

End If

muchas gracias por tu respuesta o sugerencias