ExcelBanter - View Single Post

Thanks Dave O..

rw

"Dave O" wrote:

Here's a quick and dirty print macro I recorded:

Sub Print_Certain_Sheets()
Sheets(Array("Sheet1", "Sheet2", "Sheet4")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet1").Select
End Sub

Change Sheet1 Sheet2 Sheet4 to match your tab names (and add to it as
necessary), then assign this macro to a command button on your screen.