Hi,
I have a macro that someone very kindly helped me with on another thread (see below)
I need this developed a bit more to include a page break at line 70, and also to specific what sheet to apply the whole macro to, i.e. their are 60 sheets in the book, but i only want it to apply this formating to sheet 1 to sheet 50.
I am using Excel 2007
Any help would be appreciated as usual.
Lynsey![Smile :) :)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Sub test()
Dim WorkSh As Worksheet
For Each WorkSh In ActiveWorkbook.Worksheets
With WorkSh.PageSetup
.PrintArea = "$A$1:$u$190"
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.FitToPagesWide = 1
.FitToPagesTall = 2
.Zoom = False
End With
Next WorkSh
End Sub
I have a macro that someone very kindly helped me with on another thread (see below)
I need this developed a bit more to include a page break at line 70, and also to specific what sheet to apply the whole macro to, i.e. their are 60 sheets in the book, but i only want it to apply this formating to sheet 1 to sheet 50.
I am using Excel 2007
Any help would be appreciated as usual.
Lynsey
Sub test()
Dim WorkSh As Worksheet
For Each WorkSh In ActiveWorkbook.Worksheets
With WorkSh.PageSetup
.PrintArea = "$A$1:$u$190"
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.FitToPagesWide = 1
.FitToPagesTall = 2
.Zoom = False
End With
Next WorkSh
End Sub