Checkbox Macro - Will unhide cells on another sheet, but cannot get to hide when unchecked

[gfabbott]

I have a macro written that will unhide the rows I want to be displayed on another sheet, but I cannot get it so that they will remain hidden when the checkbox is not clicked.

Any help would be appreciated!

I have it written two ways - can you tell me where I'm going wrong?!

Sub RemotePatrols()
'
' RemotePatrols Macro
' Unlock the section for Remote Patrols on The Services Sheet
'


'
If CheckBox = True Then
Sheets("Services").Select
ActiveSheet.Unprotect Password:="Password"
Range("16:31").EntireRow.Hidden = False
ActiveSheet.Protect Password:="Password"
Sheets("Overall Information").Select
End If
If CheckBox = False Then
Sheets("Services").Select
ActiveSheet.Unprotect Password:="Password"
Range("16:31").EntireRow.Hidden = True
ActiveSheet.Protect Password:="Password"
Sheets("Overall Information").Select
End If
End Sub

ORRRRRR

Sub RemotePatrols_Click()


If CheckBox = True Then
Sheets("Services").Select
ActiveSheet.Unprotect Password:="Password"
[16:31].EntireRow.Hidden = False
ActiveSheet.Protect Password:="Password"
Sheets("Overall Information").Select
Else:
Sheets("Services").Select
ActiveSheet.Unprotect Password:="Password"
[16:31].EntireRow.Hidden = True
ActiveSheet.Protect Password:="Password"
Sheets("Overall Information").Select
End If
End Sub

 

[dmt32]

Hi,

depending on which type of control you have on your worksheet try:


For Active X control

Private Sub RemotePatrols_Click()
    With Sheets("Services")
        .Unprotect Password:="Password"
        .Rows("16:31").EntireRow.Hidden = CBool(Not Me.RemotePatrols.Value)
        .Protect Password:="Password"
    End With
End Sub

Form Forms control

Sub RemotePatrols_Click()
    With Worksheets("Services")
        .Unprotect Password:="Password"
        .Rows("16:31").EntireRow.Hidden = CBool(Not ActiveSheet.Shapes("RemotePatrols").ControlFormat.Value = xlOn)
        .Protect Password:="Password"
    End With
End Sub

Dave