Range is not being picked up

Please take a look at my code, I am trying to pick up the range and print it, depending on the analysis years.

Dim area As String
Dim startrow(1) As Integer
Dim startcol(1) As Integer
Dim endrow(1) As Integer
Dim endcol(1) As Integer
Dim vern_startrow(1) As Integer
Dim vern_startcol(1) As Integer
Dim vern_endrow(1) As Integer
Dim vern_endcol(1) As Integer

fstyr = Range("FirstAll")
lstyr = Range("LastAll")

Sheets("Personal P_L").Select
For i = 1 To 15
startrow(1) = 1
startcol(1) = 20 'T
endrow(1) = 56 + 2 * (lstyr - fstyr)
endcol(1) = 46 'AT
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperLegal
.Range(.Cells(startrow, startcol), .Cells(endrow, endcol)).Select
End With
Selection.PrintOut Copies:=1, Collate:=True
Next i

It gives me an error regarding my Range function...any help???

Thanks!

.Range(.Cells(startrow(1), startcol(1)), _
.Cells(endrow(1), endcol(1))).Select


Not sure what is up with the loop since I don't see anything change inside
the loop.

--
Regards,
Tom Ogilvy

"Sheeny" wrote:

>
> Please take a look at my code, I am trying to pick up the range and
> print it, depending on the analysis years.
>
> Dim area As String
> Dim startrow(1) As Integer
> Dim startcol(1) As Integer
> Dim endrow(1) As Integer
> Dim endcol(1) As Integer
> Dim vern_startrow(1) As Integer
> Dim vern_startcol(1) As Integer
> Dim vern_endrow(1) As Integer
> Dim vern_endcol(1) As Integer
>
> fstyr = Range("FirstAll")
> lstyr = Range("LastAll")
>
> Sheets("Personal P_L").Select
> For i = 1 To 15
> startrow(1) = 1
> startcol(1) = 20 'T
> endrow(1) = 56 + 2 * (lstyr - fstyr)
> endcol(1) = 46 'AT
> With ActiveSheet.PageSetup
> .Orientation = xlLandscape
> .PaperSize = xlPaperLegal
> .Range(.Cells(startrow, startcol), .Cells(endrow,
> endcol)).Select
> End With
> Selection.PrintOut Copies:=1, Collate:=True
> Next i
>
> It gives me an error regarding my Range function...any help???
>
> Thanks!
>
>
> --
> Sheeny
> ------------------------------------------------------------------------
> Sheeny's Profile: http://www.excelforum.com/member.php...fo&userid=9082
> View this thread: http://www.excelforum.com/showthread...hreadid=538966
>
>