添加Horizo​​ntale分页符不起作用

Question

我有一个代码，可以正常工作，但是每次都会出错。

更改代码将无效

Sub AddPgBrk()
    For Each Cell In Selection
        ActiveWindow.ActiveSheet.HPageBreaks.Add
         Before:Cell
        Next Cell
End Sub

有一个公式方面的内容。