Excel - Luego entonces ...

EL CASO ES ES SIGUIENTE: con el codigo transcrito a continuacion
trato de que si la celda d18 tiene la palabra "Aplica" se imprima el anexo
en caso de tener "No Aplica" pues no lo haga
el caso es que ya probe con cell y no da, range tampoco lo activa
agradeceria infinitamente sus comentarios al caso


Sub IMPRIME_APTU()

If Range("d18").Value = "Aplica" Then

Range("APTU").Select
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
.Zoom = 94
End With
Selection.PrintOut Copies:=1, Collate:=True

ElseIf Range("d18").Value = "No Aplica" Then

End If
End Sub

Intenta colocando esta linea dentro del With, antes de End With:
.PrintOut
Por supuesto elimina:
Selection.PrintOut Copies:=1, Collate:=True

Hola Armando gracias por tu comentario
segui tu comentario al pie de la letra
y me marca un error que dice: referencia no valida sin clasificar
le agregue selection. y abre el cuadro de dialogo guardar archivo como ...
al darle escape se queda detenido el procedimeinto en modo de depurar

no se si venga al caso
pero la celda d18 es una validacion
ya que solo muestra: Aplica y No Aplica
no se si VBA le de un valor numerico a la celda

algo falta porque ahora ya corre hasta lainstruccion que se modifica

parece facil, pero tuiene su detalle

GRACIAS

Gracias Armando por el detalle
lo que sucede es que por un malware que do desconfigurada la impresora y por eso no actuaba como se esperaba
pero si es correcto tu comentario
la aplicacion desarrollada va a ser ecologica por evitar el despilfarro de papel

ah solo una aclaracion adicional porque se tiene que quitar el codigo que me dijiste
para saber mas a fondo del asunto

muy agradecido, muy agradecido

Saludos