Is there a way to shorten this so that I do not have to type so muc
out? Because I have a couple cells I need it to read with differen
From and To's. And it would be a very long VBA.


Private Sub CommandButton1_Click()
Select Case Range("Quanity").Value
Case 1
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Collate _
:=True
Case 2
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=2
Collate _
:=True
Case 3
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
Collate _
:=True
Case 4
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=4
Collate _
:=True
Case 5
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=5
Collate _
:=True
Case 6
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=6
Collate _
:=True
Case 7
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=7
Collate _
:=True
Case 8
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=8
Collate _
:=True
Case 9
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=9
Collate _
:=True
Case 10
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=10
Collate _
:=True
Case 11
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=11
Collate _
:=True
Case 12
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=12
Collate _
:=True
End Select
End Sub

Thanks in advance,
TyeJa

--
TyeJa
-----------------------------------------------------------------------
TyeJae's Profile: http://www.excelforum.com/member.php...nfo&userid=723
View this thread: http://www.excelforum.com/showthread.php?threadid=32030