According to a client of mine, the following code takes about 20 seconds to run on his computer. However, it only takes about 1.6 seconds to run on my Windows based computer, and about 3 seconds on my old Mac computer. Even with what he says is a slow computer, I don't see why it would take so long. Here's the code...
Does any one have any insight, comments, etc.?
Code:
Sub UpdateHeader()
Dim i As Long
ActiveSheet.PageSetup.CenterHeader = Range("q10").Value
With Worksheets(1).PageSetup
For i = 2 To 6
Worksheets(i).PageSetup.LeftHeader = .LeftHeader
Worksheets(i).PageSetup.CenterHeader = .CenterHeader
Worksheets(i).PageSetup.RightHeader = .RightHeader
Worksheets(i).PageSetup.LeftFooter = .LeftFooter
Worksheets(i).PageSetup.CenterFooter = .CenterFooter
Worksheets(i).PageSetup.RightFooter = .RightFooter
Next i
End With
End Sub
Does any one have any insight, comments, etc.?