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!