Incluir una o dos condiciones a código VBA

[Aretradeser]

Buenas tardes, Dante Amor:
En un libro excel, en el evento Open, tengo el siguiente código:

Private Sub Workbook_Open()
Dim N As Integer
Dim Texto As String
On Error GoTo Siguiente
For N = 2 To 62
    If Cells(N, 9) - Now < Range("R1") Then Texto = Texto & Cells(N, 6) & Chr(13)
                                                                                    
Siguiente:
Next N
If Texto <> "" Then
    Texto = "Atención!!! hay que iniciar las siguientes actividades: " & Chr(13) & Texto 
    MsgBox Texto, vbCritical
End If
End Su

Lo que hace es que, dependiendo de las fechas registradas en la columna 9 y del número que ponga en la celda "R1" de la hoja "DATOS", salta un aviso por medio de un MsgBox.
Ejemplo: si en "R1" pongo 15, todas las fechas de la columna 9 que les falte quince días para llegar a esa fecha, lista los nombres que se encuentran en la columna 6.
Ahora, lo que necesito es que, además, cumpla con las siguientes condiciones:
Que coincida con que en la columna 11, en sus mismas filas, coincidan con registros que contengan el texto "Aplicación_496" o "Aplicación_494". Espero haberme explicado bien, en caso contrario, no dudes en pedirme cualquier aclaración al respecto.
Muchas gracias,
Miguel A.
PD.: Quizás, otra alternativa sería lanzar un MsgBox que diera las opciones de incluir estas condiciones.

 

[offthelip]

prueba:

Private Sub Workbook_Open()
Dim N As Integer
Dim Texto As String
On Error GoTo Siguiente
For N = 2 To 62
    
    If (Cells(N, 9) - Now < Range("R1")) And (Cells(N, 11) = "Aplicación_496" Or Cells(N, 11) = "Aplicación_494") Then
    Texto = Texto & Cells(N, 6) & Chr(13)
    End If
Siguiente:
Next N
If Texto <> "" Then
    Texto = "Atención!!! hay que iniciar las siguientes actividades: " & Chr(13) & Texto
    MsgBox Texto, vbCritical
End If
End Sub

 

[Aretradeser]

Perfecto, offtlelip.
Una cuestión más, como evitar que cuando en la columna 9 haya una celda en blanco, liste su correspondiente nombre de la columna 6.
Muchísimas gracias por tu excelente código.
Saludos,
Miguel A.

 

[offthelip]

cambio esta:

If (Cells(N, 9) - Now < Range("R1")) And (Cells(N, 11) = "Aplicación_496" Or Cells(N, 11) = "Aplicación_494") [COLOR=#ff0000]and (Cells(N, 9)<> "") [/COLOR]Then