Speed up the macro coding

Hi All,

Any one help me to fix the below mentioned macro to accelerate his speed, in that sheet contains more then 35 check boxes. If am select the "Select All" Option it will take a minute to select all the check boxes. so i need to fix that issue. Seeking your comments on this.

Sub Check_Box()
Application.Calculation = xlCalculationManual
        Application.ScreenUpdating = False
                If Sheets("Filters").Shapes("Check Box 42").ControlFormat.Value = 1 Then
                		For i = 43 To 76
                Sheets("Filters").Shapes("Check Box " & i).ControlFormat.Value = True
                		Next i
    Else
                		For i = 43 To 76
                Sheets("Filters").Shapes("Check Box " & i).ControlFormat.Value = False
        			Next i
                End If
Application.Calculation = xlCalculationAutomatic
End Sub

Thanks/Raju

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

Is this faster?

Option Explicit

Sub Check_Box()
    Dim i As Long

    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    With Sheets("Filters")
        If .Shapes("Check Box 42").ControlFormat.Value = 1 Then
            For i = 43 To 76
                .Shapes("Check Box " & i).ControlFormat.Value = True
            Next i
        Else
            For i = 43 To 76
                .Shapes("Check Box " & i).ControlFormat.Value = False
            Next i
        End If
    End With

    With Application
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

Originally Posted by rajuganapathy

Thank you very much for your kind response Jolivanes & mc84excel. it's working speedy ....

You don't have to rep me however could you please close the thread? Use Thread Tools (top right menu) to mark the thread as SOLVED. Thanks.