Something like:

Sub a()
Dim Num As Integer
On Error GoTo NotNumber
Num = InputBox("Copies to Print?")
ActiveSheet.PrintOut Copies:=Num
NotNumber:
End Sub


--
Jim
"Greg" wrote in message
...
|I was wanting to have a userform appear asking how many print out was
needed
| when they put the number in the textbox it prints that amount.
|
| How would I do this?
|
| Thanks
|
| Greg
|
|