VBA runs slow. How can I speed this up.

[GaryHinton]

Sub ap()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Dim Sh As Worksheet
Dim pvt As PivotTable
Dim nm As String

For Each Sh In Sheets
Sh.Unprotect "ABC"
Next

For Each Sh In Sheets
For Each pvt In Sh.PivotTables
nm = Sh.Name
pvt.PivotCache.Refresh
Next
Next

For Each Sh In Sheets
Sh.Protect "ABC", _
DrawingObjects:=False, _
Contents:=True, _
Scenarios:=False, _
AllowSorting:=True, _
AllowFiltering:=True, _
AllowFormattingCells:=True, _
AllowUsingPivotTables:=True
Sh.EnableSelection = xlUnlockedCells
For Each Sheet In Sheets
Sheet.Activate
ActiveWindow.DisplayGridlines = False
Next Sheet
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True

End Sub

 

[GaryHinton]

This is what I get with Mumps code

 

[rlv01]

This is what I get with RlVo1 code

Which line of code causes that error?