Shape.Range isn't updating unless I enter the cell and press Enter? - Help!

[TTUK]

Hello all,

I have an image named GenPPE on the WorkSheet Gen, and
on the Worksheet named Dash I have a checkbox which updates LinkedCell to AQ36

When the location of Dash AQ36 = True, the image called GenPPe on Worksheet Gen is to show, and if it is = False, then it doesn't not show.

I'm struggling to get this to work without having to click on the Cell and press Enter.
I have tried

Private Sub Worksheet_Change(ByVal Target As Range)

and

Worksheet_Open

but I cannot seem to get it to do the trick!

Here is my VBA so far -

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cell As Range
On Error Resume Next

For Each Cell In Range("$AQ36")
    If Cell.Value = True Then
        Sheets("Dash").Shapes.Range(Array("GenPPE")).Visible = True
    Else
        Sheets("Dash").Shapes.Range(Array("GenPPE")).Visible = False
    End If
Next Cell
    
End If
End Sub

I have this Code in the Object of the Worksheet Dash

Hope someone can help me out! As I just want to click the Checkboxes on Dash, for them to update the Shapes automatically on Gen.

Thanks!

 

[6StringJazzer]

Instead of using Worksheet_Change on the cell, use a change event for the checkbox. Is it an ActiveX or Forms checkbox?

 

[TTUK]

Hello.

It is an ActiveX checkbox.
I'm not sure how to write a Change Event?

Thanks,

 

[TTUK]

Would like to update you that adding the formula to the Checkbox VBA worked!

Here is the code for anyone else who may have a similar thing they are trying to do involving checkboxes showing or hiding shapes.

Private Sub CheckBox5_Click()
    If CheckBox5.Value = True Then Range("AR36").Value = 1
    If CheckBox5.Value = False Then Range("AR36").Value = 0
    
Dim Cell As Range
On Error Resume Next
   
    For Each Cell In Range("$AR36")
    If Cell.Value = 1 Then
        Sheets("Gen").Shapes.Range(Array("GenPPE1")).Visible = True
    Else
        Sheets("Gen").Shapes.Range(Array("GenPPE1")).Visible = False
    End If
Next Cell

End Sub

 

[6StringJazzer]

Private Sub CheckBox5_Click()

That's the change event.