Excel - Macro en todos los libros abiertos

Buen día, alguien me puede decir que intrucciones tengo que ponerle para que la siguiente operación la realice en todos los libros abiertos...

Sub Impresiones()

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=2, Criteria1:="<>"
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Cualquier sugerencia se los agradeceré..

Saludos...

Sub Impresiones()
Dim wbk As Workbook
For Each wbk In Workbooks
wbk.Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=2, Criteria1:="<>"
ActiveWorkbook.Save
ActiveWindow.Close
Next wbk

End Sub
Esto sin detenerme a ver el codigo, que "envase en el loop"

GALILEOGALI
http://excelgali.mejorforo.net/

Gracias, te comento que me marca error ya que también manda imprimir el archivo que está oculto (PERSONAL) pero en este libro no deseo que se ejecute la macro.

Que me recomiendas hacer..

Muchas gracias por tu ayuda...

Sub Impresiones()
Dim wbk As Workbook
For Each wbk In Workbooks
IF Ucase(wbk.name) = "PERSONAL.XLS" then
else
wbk.Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=2, Criteria1:="<>"
ActiveWorkbook.Save
ActiveWindow.Close
End If
Next wbk

End Sub
GALILEOGALI

http://excelgali.mejorforo.net/