Hide/unhide Cell contents based on checkbox

**Kelton** · 04-25-2014, 12:33 PM

I have searched with no luck. I am trying to hide the content of Cells A21 and B21 when the checkbox in D21 is unchecked and then unhide the same two cells when the same check box is checked. The best I have come up with is formatting the cells to ";;;" to hide them, but I can not for the life of me make it remove the ";;;" and unhide them. Is there a better way?

Sub Hide()

If ThisWorkbook.Worksheets(1).Shapes("Check Box 19").OLEFormat.Object.Value = 1 Then
Range("A21:B21").Select
Selection.NumberFormat = ";;;"

ElseIf ThisWorkbook.Worksheets(1).Shapes("Check Box 19").OLEFormat.Object.Value = 0 Then
Range("A21:B21").Select
Selection.NumberFormat = ""

End If
End Sub

That is the best I have made so far

**Kelton** · 04-25-2014, 04:25 PM

Nevermind, went a totally different direction and ended up figuring it out. I was making it stupid harder than it needed to be.

Ended up using strike out with this code:

Sub Hide16()

If ThisWorkbook.Worksheets(1).Shapes("Check Box 17").OLEFormat.Object.Value = 1 Then
Range("A36:B36").Select
Selection.Font.Strikethrough = False

Else
Range("A36:B36").Select
Selection.Font.Strikethrough = True

End If
End Sub

But Found out all I had to do is make it a straight Else statement instead of trying to over complicate it. My newness to coding is showing, don't look! Here is the code for it for anyone in the future!

Sub Hide()

If ThisWorkbook.Worksheets(1).Shapes("Check Box 19").OLEFormat.Object.Value = 1 Then
Range("A21:B21").Select
Selection.NumberFormat = ";;;"

Else
Range("A21:B21").Select
Selection.NumberFormat = ""

End If
End Sub