problem with code

[chobanne]

hello all

I make this code and have problem with it

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Range("ah1") = 1 Then
ActiveSheet.Shapes("Picture 15").Visible = True
Else:
ActiveSheet.Shapes("Picture 15").Visible = False
End If
End Sub

The picture don't automatically hide or unhide until i click some random cell in sheet.

Can someone pls help me what to add in code to avoid subsequent click

 

[chobanne]

its form check box, thats why i have AH1 value, For activex i dont need range AH1 i think, i think code must be modify

i will prefere if it will run with form control button because many others formula i have depends on that button and some conditional formating

 

[chobanne]

Thanks for you patience

 

[Alex Blakenburg]

What about not using a worksheet event and just assigning the macro to the button ?

In a Standard Module (ie right click on modules and Insert Module), paste the code below.
Then right click on the Form Checkbox and Assign Macro and select the macro below.

Sub CheckBox1_Click()
    If ActiveSheet.Range("AH1") = 1 Then
        ActiveSheet.Shapes("Picture 15").Visible = True
    Else:
        ActiveSheet.Shapes("Picture 15").Visible = False
    End If
End Sub

 

[chobanne]

What about not using a worksheet event and just assigning the macro to the button ?

In a Standard Module (ie right click on modules and Insert Module), paste the code below.
Then right click on the Form Checkbox and Assign Macro and select the macro below.

Sub CheckBox1_Click()
    If ActiveSheet.Range("AH1") = 1 Then
        ActiveSheet.Shapes("Picture 15").Visible = True
    Else:
        ActiveSheet.Shapes("Picture 15").Visible = False
    End If
End Sub

it works thank you

 

[Alex Blakenburg]

Thanks for letting us know. Glad we could help.