January 10, 2012

Code to find automatic page breaks in Excel

Code to automatic page breaks in Excel

 Sub identify()  
 'establish v to represent VERTICAL  
 Dim v As Integer: v = 0  
 ' start loop to identify vertical break  
 v = v + 1 ' go through each column at step 1  
 Loop Until ActiveSheet.Columns(v).PageBreak = xlAutomatic  
 'continue looping until it identifies a automatic verical (v) page break  
 MsgBox ("Page ends COLUMN : " & v - 1)  
 'Why "V - 1"? Well, the new page starts on column v... final page therefore is  
 'column v-1!  
 End Sub