page break question

[antinora]

Column A of my spreadsheet has repeating names. How do I use VBA to insert a page break after each change in name?

Thanks!!!

 

[MARK858]

Try...

Sub insbrk()
    Dim c As Range
    For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
        If c <> c.Offset(1) Then ActiveSheet.HPageBreaks.Add Before:=c.Offset(1)
    Next
End Sub