LstRw = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For Each Ce In Range("A2:A" & LstRw)
If Len(Ce.Value) = 0 Then
ActiveSheet.HPageBreaks.Add Before:=Ce
End If
Next
Brian,
I wasn't aware of the "page setup, sheet tab, rows to repeat at top" ability. I tried it and it was cool, but when I went to print preview - there was probably 5,000 blank pages (exaggeration) waiting to be printed.
Can this feature be set to only repeat the row in which there was data present on the sheet?
Oh and by the way the code for inserting pages breaks worked perfectly - thank you.
LstRw = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For Each Ce In Range("A2:A" & LstRw)
If Len(Ce.Value) = 0 Then
ActiveSheet.HPageBreaks.Add Before:=Ce.Offset(1, 0)
End If
Next[code]