Creating a Checkbox to Hide and Unhide Rows in Excel

Описание: Creating a Checkbox to Hide and Unhide Rows in a Worksheet is something I needed. Below is the final macro I created. Enjoy.

Sub CheckBox()
If Range("A1").Value = "True" Then
Call Hide
ElseIf Range("A1").Value = "False" Then
Call Unhide
Else
Return
End If
End Sub

Sub Hide()
ActiveSheet.Rows("10:10").EntireRow.Hidden = True
End Sub

Sub Unhide()
ActiveSheet.Rows("10:10").EntireRow.Hidden = False
End Sub