Sub PrintEm()
Dim WS As Worksheet
For Each WS In ActiveWindow.SelectedSheets
WS.Range("B7:Y40").PrintOut
Next
End Sub


--
Jim
"MikeF" wrote in message
...
|
| Hello,
|
| The same range needs to be printed for one or sometimes more sheets in a
| workbook.
| This *should* be easy, but can't seem to make it happen properly.
|
| Can anyone please correct the following code apppropriatlely?
| Thanx in advance.
| - Mike
|
|
| Sub PrintDetail()
| Range("B7:Y40").Select
| For Each Sh In ActiveWindow.SelectedSheets
| Sh.PageSetup.PrintTitleRows = "$1:$6"
| Sh.Selection.PrintOut Collate:=True
| Next
| Next
| End Sub
|