Sub Print_Copies()
With ActiveSheet
If .Range("CellLink") = 1 Then
Call Print_1
ElseIf .Range("CellLink") = 2 Then
Call Print_2
ElseIf .Range("CellLink") = 3 Then
Call Print_3
ElseIf .Range("CellLink") = 4 Then
Call Print_4
ElseIf .Range("CellLink") = 5 Then
Call Print_5
If .Range("CellLink") = 6 Then
Call Print_6
ElseIf .Range("CellLink") = 7 Then
Call Print_7
If .Range("CellLink") = 8 Then
Call Print_8
ElseIf .Range("CellLink") = 9 Then
Call Print_9
If .Range("CellLink") = 10 Then
Call Print_10
ElseIf .Range("CellLink") = 11 Then
Call Print_11
If .Range("CellLink") = 12 Then
Call Print_12
ElseIf .Range("CellLink") = 13 Then
Call Print_13
If .Range("CellLink") = 14 Then
Call Print_14
ElseIf .Range("CellLink") = 15 Then
Call Print_15
If .Range("CellLink") = 16 Then
Call Print_16
ElseIf .Range("CellLink") = 17 Then
Call Print_17
If .Range("CellLink") = 18 Then
Call Print_18
ElseIf .Range("CellLink") = 19 Then
Call Print_19
ElseIf .Range("CellLink") = 20 Then
Call Print_20
End Sub
??? Any ideas??!
With ActiveSheet
If .Range("CellLink") = 1 Then
Call Print_1
ElseIf .Range("CellLink") = 2 Then
Call Print_2
ElseIf .Range("CellLink") = 3 Then
Call Print_3
ElseIf .Range("CellLink") = 4 Then
Call Print_4
ElseIf .Range("CellLink") = 5 Then
Call Print_5
If .Range("CellLink") = 6 Then
Call Print_6
ElseIf .Range("CellLink") = 7 Then
Call Print_7
If .Range("CellLink") = 8 Then
Call Print_8
ElseIf .Range("CellLink") = 9 Then
Call Print_9
If .Range("CellLink") = 10 Then
Call Print_10
ElseIf .Range("CellLink") = 11 Then
Call Print_11
If .Range("CellLink") = 12 Then
Call Print_12
ElseIf .Range("CellLink") = 13 Then
Call Print_13
If .Range("CellLink") = 14 Then
Call Print_14
ElseIf .Range("CellLink") = 15 Then
Call Print_15
If .Range("CellLink") = 16 Then
Call Print_16
ElseIf .Range("CellLink") = 17 Then
Call Print_17
If .Range("CellLink") = 18 Then
Call Print_18
ElseIf .Range("CellLink") = 19 Then
Call Print_19
ElseIf .Range("CellLink") = 20 Then
Call Print_20
End Sub
??? Any ideas??!