Problema con PrintOut

hola, Manolito !

... problema al imprimir una hoja... este procedimiento
Private sub prueba()
Dim objHojaActiva As Object
Set objHojaActiva = Worksheets("Factura") 'Hago esto pq tengo la hoja oculta y no puedo usar el objeto activesheet
objHojaActiva.Cells(6, 16).Value) = 0
'bla, bla , bla
objHojaActiva.Select ' aqui peta
ActiveWindow.SelectedSheets.PrintOut Copies:=NumCopias, Collate:=True ' aqui peta
end sub
Como puedo arreglar esto?

-> [hasta donde se] NO es posible 'seleccionar' un objeto que se encuentra oculto :-(
tampoco imprimirlo... ni nada que tenga que ver con hacerle una referencia como 'objeto activo'... :-(

prueba con la siguiente macro... si cualquier duda [o informacion adicinal]... comentas?
saludos,
hector.

Private Sub Imprimir_HojaOculta()
Application.ScreenUpdating = False
With Worksheets("Factura")
.Cells(6, 16) = 0
' bla, bla, bla...
.Visible = xlSheetVisible
.PrintOut Copies:=NumCopias, Collate:=True
.Visible = xlSheetVeryHidden
End With
End Sub