求提高效率

我的工作簿有很多页（多的有200多页），每一页格式一样。由于表的打印幅面有点大，需要精细调整页边距。我做了一个宏来完成。如下：
For i = 1 To 200
    Sheets(i).Select
    With ActiveSheet.PageSetup
        .LeftMargin = Application.CentimetersToPoints(1.8)
        .RightMargin = Application.CentimetersToPoints(0.8)
        .TopMargin = Application.CentimetersToPoints(1.2)
        .BottomMargin = Application.CentimetersToPoints(1.3)
    End With
   next i  
运行无误但速度很慢，几乎以为程序死掉了。恳请高手援手！（我试过不用宏，直接同时选中所有页，用拖动来调，一样很慢）

Upload your file