If I understand you correctly:

Public Sub PrintSelectedSheets()
Dim sh As Worksheet
Dim x As Long
Dim y As Long
x = InputBox("First Page to Print")
y = InputBox("Last Page to Print")
For Each sh In ActiveWindow.SelectedSheets
sh.PrintOut _
From:=x, _
To:=y, _
Copies:=1, _
Collate:=True
Next sh
End Sub


In article ,
"Todd" wrote:

Hi, I am working with a macro to print out all sheets in a workbook. I
figure to group the sheets I want and then select which page to print. For
example, I wish to print page 8 for every selected sheet.

My macro doesn't work. Did you know that already? Its pasted below, I get
errors at the IF. Can anyone see the error and tell how to fix it?