Auto Calc Not Turning Off

[Alex O]

Any ideas why autocalc will not switch to auto? Thanks

Sub HideRows()With Application
        ScreenUpdating = False 
        Calculation = xlCalculationManual 
        DisplayAlerts = False 
        EnableEvents = False 
    End With
BeginRow = 2
EndRow = 1050
ChkCol = 20
For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value = 1 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
Else
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
With Application
        ScreenUpdating = False 
        Calculation = xlCalculationManual 
        DisplayAlerts = False 
        EnableEvents = False 
    End With
End If
Next RowCnt
   End Sub

 

[MrKowz]

Not sure what all the code is trying to accomplish.... but to address your question, when you use the With block, anything you want to utilize the With must have a "." preceding it:

Sub HideRows()
With Application
    [B][COLOR="#FF0000"].[/COLOR][/B]ScreenUpdating = False
    [B][COLOR="#FF0000"].[/COLOR][/B]Calculation = xlCalculationManual
    [B][COLOR="#FF0000"].[/COLOR][/B]DisplayAlerts = False
    [B][COLOR="#FF0000"].[/COLOR][/B]EnableEvents = False
End With

BeginRow = 2
EndRow = 1050
ChkCol = 20

For RowCnt = BeginRow To EndRow
    If Cells(RowCnt, ChkCol).Value = 1 Then
        Cells(RowCnt, ChkCol).EntireRow.Hidden = True
    Else
        Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        With Application
            [B][COLOR="#FF0000"].[/COLOR][/B]ScreenUpdating = False
            [B][COLOR="#FF0000"].[/COLOR][/B]Calculation = xlCalculationManual
            [B][COLOR="#FF0000"].[/COLOR][/B]DisplayAlerts = False
            [B][COLOR="#FF0000"].[/COLOR][/B]EnableEvents = False
        End With
    End If
Next RowCnt
End Sub

 

[Alex O]

I completely missed that! Thanks for the help… Much appreciated!

 

[MrKowz]

Happy to help - thanks for the feedback. Have a good weekend!