How to insert a page break for every column

[mnucci1]

Hi I'm trying to figure out how to insert a page break on every column no matter the amount of columns.

 

[Joe4]

Welcome to the Board!

If you do not want to do it manually, then assuming that row 1 has headers for all columns with data, this little VBA procedure will do that for you:

Sub MyInsertColPBs()

    Dim lc As Long
    Dim c As Long
    
'   Find last column in row 1 with data
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
    
'   Loop through all columns and insert vertical page breaks
    If lc > 1 Then
        For c = 2 To lc
            ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Cells(1, c)
        Next c
    End If
    
End Sub

 

[mnucci1]

Thank you so much!

 

[Joe4]

You are welcome.
Glad I was able to help!