代码速度 - VBA

Question

以下代码会查看命名范围，并根据按钮标题隐藏它们或取消隐藏它们。问题是它需要太长时间。从2到5秒。我把相同的代码放入一本新书中，它立即运行。有什么我应该看的可能导致这个或任何特殊的麻烦射击步骤？ （显然，新工作簿缺少99％的其余代码，但我只是想确认它可以快速运行）

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If UnhideButton.Caption = "Hide all premium rows" Then
        For i = 1 To 5
        QuoteReport.Range("hidesubs" & i).EntireRow.Hidden = True
        Next i
    UnhideButton.Caption = "Unhide"
Else
    QuoteReport.Range("hideblanks").EntireRow.Hidden = False
    'Hide premium by coverage layer
    For Each c In QuoteReport.Range("HideBlanks").Cells
        If Not IsError(c.Value) Then
            If c.Value = "" Then
            c.EntireRow.Hidden = True
            End If
        End If
    Next
    UnhideButton.Caption = "Hide"
End If