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