Just in case anyone is curious:

Dim area As String
Dim startrow1 As Integer
Dim startcol1 As Integer
Dim endrow1 As Integer
Dim endcol1 As Integer
Dim startrow2 As Integer
Dim startcol2 As Integer
Dim endrow2 As Integer
Dim endcol2 As Integer
Dim startrow3 As Integer
Dim startcol3 As Integer
Dim endrow3 As Integer
Dim endcol3 As Integer

'Do all except Vern


If CheckBox12.Value = True Then
fstyr = Range("FirstAll").Value
lstyr = Range("LastAll").Value

num = Cells(18, 9).Value

With Worksheets(Cells(18, 6).Value)

With .PageSetup
..Orientation = xlLandscape
..PaperSize = xlPaperLegal
..FitToPagesWide = 1
..FitToPagesTall = 1
End With

' for q 1 and q 2

startrow1 = 1
startcol1 = 20
endrow1 = 56 + 2 * (lstyr - fstyr)
endcol1 = 46

..Range(.Cells(startrow1, startcol1), .Cells(endrow1,
endcol1)).PrintOut Copies:=num, Collate:=True


' for q3 and q4
startcol2 = 20
startrow2 = (endrow1 + 1)
endrow2 = startrow2 + 42 + 2 * (lstyr - fstyr)
endcol2 = 46

..Range(.Cells(startrow2, startcol2), .Cells(endrow2,
endcol2)).PrintOut Copies:=num, Collate:=True

' for rest

startrow3 = 21
startcol3 = 48
endrow3 = 124
endcol3 = 59

..Range(.Cells(startrow3, startcol3), .Cells(endrow3,
endcol3)).PrintOut Copies:=num, Collate:=True

'Reset print setup
With ActiveSheet.PageSetup
..Orientation = xlLandscape
..PaperSize = xlPaperLetter
..FitToPagesWide = 1
..FitToPagesTall = 1
End With

End With

End If


--
Sheeny
------------------------------------------------------------------------
Sheeny's Profile: http://www.excelforum.com/member.php...fo&userid=9082
View this thread: http://www.excelforum.com/showthread...hreadid=555770