Separates The Same Ones İn Column A As Sheet / Page Space2 Online Excel and Excel Macro (VBA) Courses Copy Macro 'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php Sub SetzeSeiten() Dim rngBereich As Range Dim rngZelle As Range Application.ScreenUpdating = False On Error GoTo Ende Set rngBereich = Range("A1:A" & Range("A2").End(xlDown).Row) Cells.PageBreak = xlNone For Each rngZelle In rngBereich If rngZelle rngZelle.Offset(1, 0) Then rngZelle.Offset(1, 0).PageBreak = xlPageBreakManual Next rngZelle Ende: Application.ScreenUpdating = True End Sub Report problem with this macro This macro does not work. There's an error in the code. Other You can write your comments about the error in the box below. Report error ALL MACROS Youtube Channel The following macros may be useful for you. Similar Results NoMacro Name 1 Separates the same ones in column a as sheet / page space2 2 Separates the same ones in column a as sheet / page space 3 Column a separates the same value as the print area 4 excel operators hk 5 summer adds months to sheet / pages 6 inserts months as sheet / pages Specifies days in detail 7 Filter the same values in column a on the next sheet / page and add the totals in b 8 check the same data on the active sheet / page 9 specifies in detail how many references the book contains (on new sheet / page) 10 specifies in detail how many formulas are in the book (on new sheet / page) 11 list formulas on new sheet / page 12 watermark printing (faded font on sheet / page background) 13 Adds months as a sheet / page and writes the days of the month and goes to the active month and day 14 Adds sheet / pages based on data in column A and writes data up to column D 15 value against names on sheet / page 2 16 finds formulas on active sheet / page lists new sheet / page 17 sheet / page address and set column width 18 prints all sheet / pages with data or scans but does not print 19 remove sheet / page protections 20 Deletes the same ones in column b and leaves 1