Olá
Gostaria de adaptar essa macro para identificar a impressão somente dos ranges selecionados no mouse manualmente
Sub Imprimir_SelecaoCopias()
'Macro com quantidade de cópias com erro ajustado ao clicar em cancelar
ncop = InputBox("Quantas cópias deseja imprimir?")
If ncop = "" Or ncop = "0" Then
'MsgBox ("Impressão Cancelada com sucesso!")
Exit Sub
End If
Application.ScreenUpdating = True
Range("A1").Select
Application.ScreenUpdating = False
ActiveWindow.SelectedSheets.PrintOut Copies:=ncop
End Sub