У меня есть код, который должен работать, но я каждый раз получаю ошибку.
Смена кода, работать не будет
Sub AddPgBrk() For Each Cell In Selection ActiveWindow.ActiveSheet.HPageBreaks.Add Before:Cell Next Cell End Sub
Есть формула аспект-ред.