IMPRIMIR VÁRIAS PLANILHAS, PRINT TO

PARA IMPRIMIR VÁRIAS PLANILHAS OU ESCOLHER INTERVALO DE PLANILHAS PARA IMPRESSÃO. PRINT TO;

Sub imprimeplan()

For contador = 1 To 20(escolher o intervalo: 1, 10, 20, etc...)
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.Next.Select
Next contador
Sheets("Plan3").Select
End Sub