Hide Checkbox in Excel using VBA or IF formula?

[xrak]

Please Help: How to Hide Checkbox in Excel using VBA or IF formula?

FOR EXAMPLE: IF C23 = “” THAN HIDE CHECK BOX 1
"" means the cell is empty
I want the CHECK BOX 1 to become visible after I write something in the cell C23

THANK YOU IN ADVANCE!!!

 

[kennypete]

Hi, you can do this with a Worksheet_Change macro.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$23" Then
     If IsEmpty(Cells(23, 3)) Then
        Sheet1.CheckBoxes("Check Box 1").Visible = vbFalse
     Else
        Sheet1.CheckBoxes("Check Box 1").Visible = vbTrue
     End If
End If
End Sub

You need to put this in the Sheet's code - right click the Sheet and View Code, as below:

When C23 is deleted/empty the Check Box will hide and when text is entered it will appear again.

 

[xrak]

Thank you for your time! I really appreciate this!
But unfortunately this formula does not work.

 

[Fluff]

You need to remove the VBA Code: as it's not part of the code.

 

[xrak]

Sorry. My mistake.
I did remove it - and now it works great!

Thank you very much!!!

 

[Fluff]

Glad we could help & thanks for the feedback

 

[xrak]

Would you please help me do one more thing?
I planned to make several chekboxes and several cells. I tried to paste this code again - changing cell# and checkbox# - but it fails.
How can I write the code correctly - so that I can create 50 such cells, starting from C23 - checkbox1 to C73 - checkbox50

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Target, Range("C23:C73")) Is Nothing Then
      Me.CheckBoxes("Check Box " & Target.Row - 22).Visible = Target.Value <> ""
   End If
End Sub

 

[xrak]

Error:

 

[Fluff]

What was the error message & number & what row did you change?