Checkbox hide if cell is blank

Good Afternoon

I have looked around and tried several different codes posted online but I cant get them to work, What I want to achieve is as follows

when a cell is blank I want the active x check box not to be visible but when the cell is populated by a formula I want the check box to be visible.

I have formula in cells B25:B39 and a checkbox next to each row so ideally I need the check boxes hidden on every line until the corresponding line is populated if possible.

Here's a code I tried as a starting point

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B25:B39")) Is Nothing Then Exit Sub

If Target.Value <> "" Then

    Me.Shapes("Check Box").Visible = True

Else

    Me.Shapes("Check Box").Visible = False
    
End If
    
End Sub

Originally Posted by 6StringJazzer

"when a cell is blank I want the active x check box not to be visible but when the cell is populated by a formula I want the check box to be visible."

If there is a formula in a cell, and the result is blank, the cell is still being populated by the formula, so your description is a little ambiguous.

Do you mean: There is a formula in the cell. When the result of the formula is the null string, I want the checkbox to be invisible. When the formula produces a non-null result, I want the checkbox to be visible.

If that's what you mean then set your checkboxes up to be named CheckBox1, CheckBox2, etc.

Private Sub Worksheet_Calculate()

   Dim C As Range
   Dim CBNum As Long

   For Each C In Range("B25:B39")
      CBNum = CBNum + 1
      Me.Shapes("CheckBox" & CBNum).Visible = (C.Value <> "")
   Next C
    
End Sub

Appologies yes thats what I mean

The formula I have is

Formula:

=IF($B$9='Reference Sheet'!$B$1,'Reference Sheet'!B2,IF($B$9='Reference Sheet'!$C$1,'Reference Sheet'!C2,IF($B$9='Reference Sheet'!$D$1,'Reference Sheet'!D2,IF($B$9='Reference Sheet'!$E$1,'Reference Sheet'!E2,IF($B$9='Reference Sheet'!$F$1,'Reference Sheet'!F2,IF($B$9='Reference Sheet'!$G$1,'Reference Sheet'!G2,IF($B$9='Reference Sheet'!$H$1,'Reference Sheet'!H2,"")))))))

So I want the checkbox hidden if the formula result returns ""

I have tried the code you kindly provided for me but I cant seem to get the desired result, maybe i'm being silly.

I Have attached the workbook

I get the following error as per screenshots.

Macro Error.jpg

Macro Error1.jpg

Your first post says

I have formula in cells B25:B39 and a checkbox next to each row

but you don't have a checkbox in each row. You only have one checkbox in row 25. After the code checks the first checkbox, it looks for CheckBox2, which doesn't exist, so it causes an error.

Second, this cell is not null, it has a single space, so the code has to be adjusted to take that into account. However, when I make the changes, I am still having trouble getting the control to become invisible. I am stepping through the code and am on a line where it makes the Visible property False but it does not disappear. I am still troubleshooting that.

Originally Posted by 6StringJazzer

Your first post saysbut you don't have a checkbox in each row. You only have one checkbox in row 25. After the code checks the first checkbox, it looks for CheckBox2, which doesn't exist, so it causes an error.

Second, this cell is not null, it has a single space, so the code has to be adjusted to take that into account. However, when I make the changes, I am still having trouble getting the control to become invisible. I am stepping through the code and am on a line where it makes the Visible property False but it does not disappear. I am still troubleshooting that.

Thanks for the reply, Sorry I made some changes to take out sensitive data so have inadvertently caused the issue. thank you for your help it is appreciated.