Print all (except one or two)
Saintsman, something like this,
Sub Print_Most_Sheets()
'will print each sheet in the workbook
'except Sheet1 and sheet2
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In ActiveWorkbook.Sheets
If sht.Name < "Sheet1" And sht.Name < "Sheet2" Then
sht.PrintOut
End If
Next
Application.ScreenUpdating = True
End Sub
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003
"Saintsman" wrote in message
...
How do I print all sheets in a workbook, except for a couple at the front
end
I have a workbook with a notes sheet which does not need including, but
additional sheets can be added by user & need to be included in final
report
Any ideas please
|