Hola Enmanuel G.
el codigo que tengo es el siguente:
Private Sub Imprimir_Click()
Sheets("FRANQUICIA").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
End Sub
pero no se como ordenar en este mismo código que tambien se imprima 1 copia de la hoja2 "CREDITO"