Hide Check Box with VBA Code

[tlc53]

Hi there,

Trying to get this code to work but not having much luck. It currently does nothing.
Can anyone see where I am going wrong please? Thank you!

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = Range("d8") = 1 Then
            ActiveSheet.CheckBoxes("CheckBox34").Visible = False
        Else
            ActiveSheet.CheckBoxes("CheckBox34").Visible = True
        End If
    
End Sub

 

[Legacy 433589]

I don't know if you've tried this, but the examples I found here show it as "Checkbox##" inside the quotes inside the parentheses. Note the lowercase 'b'. That's the only difference I can see.

 

[tlc53]

Thanks but that hasn't done it.
I tried the following which made it disappear however, it wouldn't come back
Hmm.. not sure where to go from here..

    If Target = Range("D8") = 1 Then
            ActiveSheet.Shapes("Check Box 32").OLEFormat.Object.Visible = True
        Else
            ActiveSheet.Shapes("Check Box 32").OLEFormat.Object.Visible = False
        End If
    
End Sub

 

[tlc53]

Did it!

Private Sub Worksheet_Calculate()
    If ActiveSheet.Range("D8").Value = 1 Then
        ActiveSheet.Shapes("CheckBox34").Visible = False
    Else
        ActiveSheet.Shapes("CheckBox34").Visible = True
    End If
End Sub

 

[tlc53]