Thanks for that Dave

Greg
"Dave Peterson" wrote in message
...
Maybe something like:

Option Explicit
Sub testme()

Dim HowMany As Long
HowMany = CLng(Application.InputBox(Prompt:="How many?", Type:=1))

If HowMany < 1 Then
Exit Sub
End If

Worksheets(Array("resultsmain", "mainladder", "thirdsheet")).PrintOut _
copies:=HowMany

End Sub

Greg B wrote:

I have to print 3 different sheet How can I get a inputbox to ask a user
how
many copies they would like to print?
the sheets are called

resultsmain
mainladder
thirdsheet

Thanks in advance

Greg

--

Dave Peterson