Option Explicit

Sub ВклВыкл()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.DisplayStatusBar = False
Application.DisplayAlerts = False

    Dim Obj As Object, ws As Worksheet
    Static checkBoxesChecked As Boolean

    If Not checkBoxesChecked Then

        For Each Obj In ActiveSheet.DrawingObjects
            If Obj.Name Like "Check Box*" Then Obj.Value = True
        Next

        ActiveSheet.Shapes("ButtOnOff").TextFrame.Characters.Text = "On"
        checkBoxesChecked = True
    Else

        For Each Obj In ActiveSheet.DrawingObjects
            If Obj.Name Like "Check Box*" Then Obj.Value = False
        Next

        ActiveSheet.Shapes("ButtOnOff").TextFrame.Characters.Text = "Off"
        checkBoxesChecked = False
    End If

Application.ScreenUpdating = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.DisplayStatusBar = True
Application.DisplayAlerts = True
End Sub

Sub Main()  Dim Obj As Object, ws As Worksheet
  For Each ws In Worksheets
    For Each Obj In ws.DrawingObjects
      If Obj.Name Like "Check Box*" Then Obj.Value = False
    Next
End Sub

Sub Main()  Dim Obj As Object, ws As Worksheet
  For Each ws In Worksheets
    For Each Obj In ws.DrawingObjects
      If Obj.Name Like "Check Box*" Then Obj.Value = False
    Next

  Next
End Sub

Sub СкрытьПустые()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.DisplayStatusBar = False
Application.DisplayAlerts = False
Dim cell As Range

For Each cell In ActiveSheet.UsedRange.Columns(2).Cells
If cell.Value = "Х" Then cell.EntireRow.Hidden = True

Next
Application.ScreenUpdating = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.DisplayStatusBar = True
Application.DisplayAlerts = True
End Sub