Subscript Out of Range ... Setting Page Breaks

M

manfareed

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
 
B

Barb Reinhardt

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

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell

I'm sure you can tweak that to get what you want.
 
M

manfareed

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"
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

run time error #9, subscript out of range 4
runtime error #9 subscript out of bounds #4 2
runtime error 9 subscript out of range #3 3
Macro to accomplish Zoom and Fit to Simultaneously 2
Recorded Macro to Set page breaks generates error. 13
runtime error 9 out of range subscript 1
runtime error 9 out of range subscript #2 6
runtime error 9, subscript out of bounds error #2 1

Top