Need Help With Show/Hide Check Boxes

[ham123]

Greetings experts,


I have a button and what it does is that it will show/hide some rows and check boxes. For the check boxes, I have only figured out how to hide them, I need help trying to show them again as reversing the true and false does not work.

Sub ShowRestOfTheForm_Click()


    With Rows("18:105")
        .Hidden = Not .Hidden
    End With
    


If ActiveSheet.Shapes("Check Box 17").Visible = True Then
ActiveSheet.Shapes("Check Box 17").Visible = False
End If


If ActiveSheet.Shapes("Check Box 18").Visible = True Then
ActiveSheet.Shapes("Check Box 18").Visible = False
End If


If ActiveSheet.Shapes("Check Box 19").Visible = True Then
ActiveSheet.Shapes("Check Box 19").Visible = False
End If


If ActiveSheet.Shapes("Check Box 20").Visible = True Then
ActiveSheet.Shapes("Check Box 20").Visible = False
End If


End Sub

Any help is much appreciated!

[大灰狼1976]

Hi ham123!

With ActiveSheet.Shapes("Check Box 17")
  .Visible = Not .Visible
End With

[ham123]

Hi

That worked for me! Thanks again