View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
zackb zackb is offline
external usenet poster
 
Posts: 18
Default page break after

To install:

From Excel, press Alt + F11 to open the Visual Basic Editor (VBE)
Press Ctrl + R, to open Project Explorer
Select your file in bold on left pane
Select Insert (menu) | Module
Paste code on right (code) pane
Alt + Q will return to Excel
SAVE BEFORE RUNNING ANY CODE!

HTH

--
Regards,
Zack Barresse, aka firefytr


"eager beaver" <eager wrote in message
...
Hi William,

I'm put in what you gave me ... its possible i didnt put it in the right
place ( VB)... but it didnt work.. im sorry im not a programmer.....


"William" wrote:

Hi

Sub test()
Dim c As Range, r As Range
With ActiveSheet
..ResetAllPageBreaks
Set r = .Range(.Range("A2"), .Range("A" & Rows.Count).End(xlUp))
For Each c In r
If c < c.Offset(-1, 0) Then .HPageBreaks.Add Befo=c
Next c
End With
End Sub

--

XL2003
Regards

William



"eager beaver" <eager
wrote in message
...
lets say i have sally typed in rows 1-5, bob in rows 6-10, and john in
rows
11-15. how can i work it so excel automatically inserts a page break
after
each name in the cell changes. in other words a page break between
sally
and
bob, bob and john.

this spreadsheet is massive!

please help!