View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Don Guillett Don Guillett is offline
external usenet poster
 
Posts: 10,124
Default Hide Autoshape based on Cell Value

Right click sheet tabview codeinsert thisNow if you change cell e5 the
macro will fire.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("e5")) Is Nothing Then Exit Sub
If Target = 0 Then
'msgBox "Hide"
ActiveSheet.Shapes("change").Visible = False
Else
'MsgBox "Show"
ActiveSheet.Shapes("change").Visible = True
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"tomic" wrote in message
...
I've tried several things, based on some other posts here, but haven't
been
successful in getting this to work.

I would like to hide an autoshape, named "Change" based on the value of a
cell "E5" in a worksheet named "Flow Rates". Basically, if E5 = 0, I don't
want the user to see this autoshape.

Any help would be appreciated. I have a feeling this is fairly simple, but
as my VB knowledge is fairly limited, I haven't been able to figure it
out.

Thanks.