Bom dia!!

Crie uma variável ....veja maiores informações em: http://www.ozgrid.com/Excel/free-traini ... esson8.htm

Obs: Não testado!!!

Sub imprimir_mod3_folha_01()
Dim AleResposta As Integer
Application.ScreenUpdating = False
If Range("V9") = "S/MOVIMENTO" Then
MsgBox "Planilha sem movimento. A impressão será cancelada.", vbInformation, "AVISO"
Exit Sub
Else
If Range("V7") = "S/MOVIMENTO" Then
AleResposta = MsgBox("Produto sem resultado. Continuar?", vbOKCancel, "ALERTA DE IMPRESSÃO")
If AleResposta = vbOK Then
Else
Exit Sub
Else
Sheets("mod 3").Select
Range("A12:Y45").Select
ActiveSheet.PageSetup.PrintArea = "$A$12:$Y$45"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("dados").Select
Range("V5").Select
End If
End If
End If
End Sub

Bom dia Alexandre.
Agradeço a gentileza da sua atenção.
Fiz as alterações necessárias e está funcionando como esperado.
Forte abraço.
Veja abaixo:

Sub imprimir_mod3_folha_01()
Dim iResposta As Integer
Application.ScreenUpdating = False
If Range("V9") = "S/MOVIMENTO" Then
MsgBox "Planilha sem movimento. A impressão será cancelada.", vbInformation, "AVISO"
Exit Sub
Else
If Range("V7") = "S/MOVIMENTO" Then
iResposta = MsgBox("Produto sem resultado. Continuar?", vbOKCancel, "ALERTA DE IMPRESSÃO")
If iResposta = vbCancel Then
Exit Sub
Else
Sheets("mod 3").Select
Range("A12:Y45").Select
ActiveSheet.PageSetup.PrintArea = "$A$12:$Y$45"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("dados").Select
Range("V5").Select
End If
End If
End If
End Sub

Bom dia!!!

Por favor, se a dica foi útil, então click na mãozinha e marque sua postagem como resolvido!!!

Veja como em:
Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784

Att