Sub PrintSelectedSheets()
x = InputBox("First Sheet to Print")
y = InputBox("Last Sheet to Print")
z = InputBox("First Page to Print")
w = InputBox("Last Page to Print")
For Each ws In Worksheets
If ws.Index = Worksheets(x).Index And _
ws.Index <= Worksheets(y).Index Then
ws.PrintOut From:=z, To:=w, Copies:=1, Collate _
:=True
End If
Next
End Sub

--

Vasant

"Todd" wrote in message
...
Hi, I am trying to work out a macro to select both the sheets and the
pages to print in a workbook. I want to have a dialog box open to select
the sheets to be printed and the page on the sheet to print. I have started
this macro but am not sure where to go now. I have the dialog boxes and the
select sheets to print working but not the select pages. Can someone tell
me how to get the dialog box to select pages working? Or any other mistakes
I made so far? I am pretty new at this and what I have I "borrowed". :)

Thanks.


Todd

Sub PrintSelectedSheets()
x = InputBox("First Sheet to Print")
y = InputBox("Last Sheet to Print")
x = InputBox("First Page to Print")
y = InputBox("Last Page to Print")
For Each ws In Worksheets
If ws.Index = Worksheets(x).Index And _
ws.Index <= Worksheets(y).Index Then
ws.PrintOut From:=5, To:=5, Copies:=1, Collate _
:=True
End If
Next
End Sub