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

 

[xrak]

If I delete data from C23 or C24 - run time error '1004' appears

 

[Fluff]

Do you have a checkbox called "Check Box 1" on sheet "Exp"?

 

[My Aswer Is This]

I always think having a large number of check boxes or other controls on a sheet can cause you difficulties.
It would be a lot easier if we wrote a script that would turn a cell Red if the cell was empty.
You may want to consider that as a easier solution.
If you may like that let me know and I can write you a script that would do that.

 

[xrak]

Is it posible to change this VBA code to add one more cell and one more box check?
I will do the rest. I just need the sample to work with.

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

 

[kennypete]

Here is a a version, @xrak, handling six check boxes:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C23:C28")) Is Nothing Then
         Dim r As Integer
             For r = 23 To 28
                If IsEmpty(Cells(r, 3)) Then
                   Sheet1.CheckBoxes("Check Box " & r - 22).Visible = vbFalse
                Else
                   Sheet1.CheckBoxes("Check Box " & r - 22).Visible = vbTrue
                End If
            Next r
    End If
End Sub

And to illustrate it in action. It handles multiple cells deleted too, as you can see.

 

[xrak]

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

IT WORKED! I renamed all the checkboxes and your code worked.
Thank you so much for your help! May God bless you for your kindness!

 

[Fluff]

You're welcome & thanks for the feedback