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 ***