Excel格式化macros花费时间太长

每当点击或closurescheckbox时，我都会触发一个macros。 这个macros可以做各种各样的事情，包括创build一个新的工作表和复制包含checkbox的工作表中的列。

在完成这个项目，我添加到macros，所以新的表格将适当的格式打印。 添加这个已经减慢macros不可用。 用户将select几个checkbox，每次他们这样做需要几秒钟的macros的格式化部分运行。 它不会为用户点击并等待，点击并等待，……..

这个macros做的太多了，看起来不可能的是格式化会比其他所有的组合要长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