pCnt = Val(InputBox("How Many Copies"))
If pCnt < 1 or pCnt 9 Then Exit Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)


"Curt"
wrote in message
Found out when testing I didn't get all needed. What I've got works unless
you hit cancel or enter 0 Following is what I've done seems all I find goes
to a greater extent than I need. All help greatly appreciated.
Following is what iI've got
Thanks to All

With Sheets("Check_In")
Sheets("Check_In").Select
pCnt = InputBox("How Many Copies") '2
ActiveWindow.SelectedSheets.PrintOut Copies:=Val(pCnt), Collate:=True '2
.pagesetup.PrintArea = "A2:D" & Cells(Rows.Count, "B").End(xlUp).Row
End With