Macro slows down opening time of workbook.

[Grompey]

Hello Excel gurus,

I have a question about a Macro I would like to use, however the macro increases the opening time of the workbook a lot which is kind of annoying.
The macro is as follows:

Private Sub Workbook_Open()
    Dim sh As Worksheet
    For i = 1 To ActiveWorkbook.Sheets.Count
        Set sh = ActiveWorkbook.Sheets(i)
        With sh.PageSetup
        .LeftFooterPicture.FileName = "C:\\MyFile"
        .CenterFooter = "&""Tahoma""&10ActiveWorkbook.FullName"
        .RightFooter = "&""Tahoma""&10Page &P of &N "
        .LeftMargin = Application.CentimetersToPoints(1.5)
        .RightMargin = Application.CentimetersToPoints(0.5)
        .TopMargin = Application.CentimetersToPoints(1.2)
        .BottomMargin = Application.CentimetersToPoints(1.6)
        .HeaderMargin = Application.CentimetersToPoints(0.4)
        .FooterMargin = Application.CentimetersToPoints(0.8)
        End With
    Next i
End Sub

Is there a solution to make the macro run quicker? Especially with some of the bigger workbooks it will take almost 5 min to complete its cycle.
Thank you very much in advance.

Kind Regards,

Grompey

 

[jkpieterse]

Try turning off Application.PrintCommunication before starting the loop and turning it back on afterwards.

 

[Peter_SSs]

Also, when posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug & copy. My signature block below has more details. I have added the tags for you this time.

 

[Grompey]

Also, when posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug & copy. My signature block below has more details. I have added the tags for you this time.

Thanks, I forgot it for this post.