Excel格式化宏太长

Question

每次点击或关闭复选框时，我都会触发一个宏。宏可以执行各种操作，包括创建新工作表和从包含复选框的工作表复制列。

在完成这个项目时，我添加到宏中，因此新的表格将被正确格式化以便打印。添加此项已将宏减慢为无法使用。用户将选择几个复选框，每次执行时都需要几秒钟才能运行宏的格式化部分。用户无法点击并等待，点击等待，........

这个宏做得太多，以至于格式化的时间似乎不可能比其他所有组合的时间长3到4倍。我已经尝试取出所有不必要的订单项，但它仍然在缓慢运行。

我已经在这篇文章中添加了格式化代码，因为其他一切工作都很完美。

Sub Format()

    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.25)
        .RightMargin = Application.InchesToPoints(0.25)
        .TopMargin = Application.InchesToPoints(0.25)
        .BottomMargin = Application.InchesToPoints(0.25)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
    End With

    With ActiveSheet.PageSetup
        '.PrintTitleRows = ""
        .PrintTitleColumns = "$A:$A"
    End With

    Application.PrintCommunication = True
End Sub