Sub PrintVisibleSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Visible Then
ws.PrintOut Copies:=1, Collate:=True
End If
Next
End Sub

---
HTH
Jason
Atlanta, GA

-----Original Message-----


HI guys,

Whats the VBA to select all visible sheets and print
them?

Visiblesheets.select?

Thanks

D

*** Sent via Developersdex http://www.developersdex.com
***
Don't just participate in USENET...get rewarded for it!
.