Sub SetPrintArea()
Select Case Range("A1")
Case 0
ActiveSheet.PageSetup.PrintArea = ""
Case 1
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$15"
Case 2
ActiveSheet.PageSetup.PrintArea = "$J$1:$K$15"
Case 3
Case Else
End Select

End Sub

Patrick Molloy
Microsoft Excel MVP

-----Original Message-----

Hi,

If Cell A1 = 1 ,Print Area (A2:M6)
If Cell A1 = 2, Print Area (A2:M11)
If Cell A1 = 3, Print Area(A2:M16) ... and so on

How do i write a vb to solve it.

Thanks in advance.

Raymond

Note : I wrongly post this question in tips and tutorial


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from
http://www.ExcelForum.com/

.