This Workbook Sheet Change Selection

Hi folks,

I'm trying to write a this workbook code that applies to all sheets.

If cell A4 is selected show the shape Note
Else dont show it

This is what I have below

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    With Sh  
        If Not Intersect(Target, "$A$4") Is Nothing Then
     
    Sh.Shapes("Notes").Visible = True
   Else
  Sh.Shapes("Notes").Visible = False
  End If
         
    End With
bm_Safe_Exit:
    Application.EnableEvents = True
 
End Sub

its not working, any ideas

thanks

sl

Hi Olly,

brilliant - much more easier in 1 line than my if else.

if in case I wanted to skip a sheet would I do
if sh.name ="Menu" then
skip

sl

thank you Olly,

did the job perfectly

Save me having to paste my old code into 30 worksheets

Have a great day!
sl