Subscript Out of Range ... Setting Page Breaks
 

Hi,

I recorded the macro below. But when I run it I get a "subscript out of
range" message. I would welcome any suggestions.

Sub Macro1()
'
' Macro1 Macro

Sheets("Variance").Select
ActiveSheet.ResetAllPageBreaks
Set ActiveSheet.VPageBreaks(1).Location = Range("AA1")
Set ActiveSheet.HPageBreaks(2).Location = Range("A397")
Set ActiveSheet.HPageBreaks(3).Location = Range("A389")
Set ActiveSheet.HPageBreaks(2).Location = Range("A332")
Set ActiveSheet.HPageBreaks(3).Location = Range("A518")
Set ActiveSheet.HPageBreaks(4).Location = Range("A691")
Range("B882").Select
Set ActiveSheet.HPageBreaks(5).Location = Range("A859")
End Sub

Subscript Out of Range ... Setting Page Breaks
 

I just recorded a macro to add page breaks and this is what was displayed

ActiveWindow.SelectedSheets.HPageBreaks.Add Befo=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Befo=ActiveCell

I'm sure you can tweak that to get what you want.
--
HTH,
Barb Reinhardt



"manfareed" wrote:

Hi,

I recorded the macro below. But when I run it I get a "subscript out of
range" message. I would welcome any suggestions.

Sub Macro1()
'
' Macro1 Macro

Sheets("Variance").Select
ActiveSheet.ResetAllPageBreaks
Set ActiveSheet.VPageBreaks(1).Location = Range("AA1")
Set ActiveSheet.HPageBreaks(2).Location = Range("A397")
Set ActiveSheet.HPageBreaks(3).Location = Range("A389")
Set ActiveSheet.HPageBreaks(2).Location = Range("A332")
Set ActiveSheet.HPageBreaks(3).Location = Range("A518")
Set ActiveSheet.HPageBreaks(4).Location = Range("A691")
Range("B882").Select
Set ActiveSheet.HPageBreaks(5).Location = Range("A859")
End Sub

Subscript Out of Range ... Setting Page Breaks
 

Thanks ... I have got part of the answer
I have a problem with automatic page breaks. The Vertical page break in my
code was moving the automatic page break to "AA". I don't want to end up
with a manual page break at "AA" and an automatic page break at "AD"

"Barb Reinhardt" wrote:

I just recorded a macro to add page breaks and this is what was displayed

ActiveWindow.SelectedSheets.HPageBreaks.Add Befo=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Befo=ActiveCell

I'm sure you can tweak that to get what you want.
--
HTH,
Barb Reinhardt



"manfareed" wrote:

Hi,

I recorded the macro below. But when I run it I get a "subscript out of
range" message. I would welcome any suggestions.

Sub Macro1()
'
' Macro1 Macro

Sheets("Variance").Select
ActiveSheet.ResetAllPageBreaks
Set ActiveSheet.VPageBreaks(1).Location = Range("AA1")
Set ActiveSheet.HPageBreaks(2).Location = Range("A397")
Set ActiveSheet.HPageBreaks(3).Location = Range("A389")
Set ActiveSheet.HPageBreaks(2).Location = Range("A332")
Set ActiveSheet.HPageBreaks(3).Location = Range("A518")
Set ActiveSheet.HPageBreaks(4).Location = Range("A691")
Range("B882").Select
Set ActiveSheet.HPageBreaks(5).Location = Range("A859")
End Sub