HI thanks for the past help

But i have a small problem

He is my code (im using a user form)

Private Sub CommandButton1_Click()
If OptionButton1 Then
Sheets("S32 worksheet").Select
Dim ws As Worksheet
Dim no_of_copies As Integer
no_of_copies = Application.InputBox("How many copies do you wish t
print ", , 1)
If no_of_copies = 0 Then Exit Sub
MsgBox ("NOTE : A MEASURE SHEET MUST BE ATTACHED WITH THIS WORKSHEET
IF NOT THIS SHEET IS NOT VALID AND NO PRODUCTION SHOULD BE MADE")
ActiveWindow.SelectedSheets.PrintOut , Collate:=True
Sheets("S32 input").Select
ElseIf OptionButton2 Then
Sheets("S32 worksheet").Select
ActiveWindow.Zoom = 75
ElseIf OptionButton3 Then
Sheets("Heroal main page ").Select
ElseIf OptionButton4 Then
Sheets("s32mea").Select
no_of_copies = Application.InputBox("How many copies do you wish t
print ", , 1)
If no_of_copies = 0 Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut , Collate:=True
Sheets("S32 input").Select
End If
Unload Me
Close
End Sub

But the problem is when the input box appears asking how many copies d
you wish to print if you put 5 in it still only prints 1

Need help

Thank

--
ra
-----------------------------------------------------------------------
raw's Profile: http://www.excelforum.com/member.php...fo&userid=2831
View this thread: http://www.excelforum.com/showthread.php?threadid=48028