Printing Help
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
|