Need Help With Show/Hide Check Boxes

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.

Code:

---

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! :)

Hi ham123!

Code:

---

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

---

Hi :)

That worked for me! Thanks again