Help with a VBA Print Range Code Problem

[mark007]

i.e.

Sub SetPrintRanges(StartCell As String) 
For i = 1 To Sheets.Count 
    Worksheets(i).PageSetup.PrintArea = startcell & ":" & _
    Worksheet(i).Cells.SpecialCells(xlCellTypeLastCell).Address
Next i 
End Sub