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