How to Vertical Page Breaks Every X Columns

How to create vertical page breaks every X Columns

Requirement:

The user wants to insert vertical page breaks at every 35 columns by a macro when the number of columns in the worksheet is variable?

Solution:

Code:

Sub test()
    Dim i As Integer
    For i = 35 To Cells.Find("*", [A1], xlValues, , xlByColumns, xlPrevious).Column Step 35
        ActiveSheet.Columns(i).PageBreak = xlPageBreakManual
    Next i
End Sub

Taking into account this text, it should still be noted that it is possible to improve what is described by introducing game techniques, a striking example of which is the experience of Desura. But in this case, all this will become more reminiscent of the plot of popular addicting games and not what is described initially here.

Obtained from the OzGrid Help Forum.

Solution provided by Daniel.