Use this

Sheets(Array("Sheet1", "Sheet", "Sheet3")).PrintOut


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Darin Kramer" wrote in message ...


Thanks - I was trying to write it in VBA, but Macro is easier. What I
had below wasnt working

Sub Print()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "a" Then
ws.PrintOut Copies:=1, Collate:=True

End If
Next
End Sub


*** Sent via Developersdex http://www.developersdex.com ***