Una duda sobre tu respuesta

Sobre tu respuesta el ultimo sheet me sale como fallo (Sheet(? ¿Hoja1?).Select)
Y no se ejecuta el macro...
Sub Macro1()
' Macro grabada el 27/07/2003 por EMM.
'
Sheets(?Hoja2?).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheet(?Hoja1?).Select
End Sub