Try

SixDigit = InputBox("How many print-outs do you want?", " ", "2")
If IsNumeric(SixDigit) Then
ActiveWindow.SelectedSheets.PrintOut Copies:=SixDigit,
Collate:=True
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Greg B" wrote in message
...
I am having a bit of trouble with this code, it is causing a
runtime error 1004, when the cancel button is hit on the input
box. How can I correct the code below?

Dim SixDigit As String

SixDigit = InputBox("How many print-outs do you want?", " ",
"2")

ActiveWindow.SelectedSheets.PrintOut Copies:=SixDigit,
Collate:=True

End Sub
Thanks

Greg