Sub RAZ_ALL_CHECKBOX()
Dim sh As Shape
Application.ScreenUpdating = False
If ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Value Then
For Each sh In ActiveSheet.Shapes
If Not InStr(1, sh.Name, "RESET") > 0 Then
sh.Visible = msoTrue
sh.OLEFormat.Object.Value = False
End If
Next sh
Else
Exit Sub
End If
Application.ScreenUpdating = True
End Sub