VBA for show/hide shape based upon value in another sheet

[DOSDK]

Hi guys,


I would like to have a shape visible, if the value in cell B7 is "WE", and hidden if not. With the VBA below, I am able to do that. HOWEVER, when the content of B7 equels the value in a cell in another sheet, it does not work - only when I write in cell B7 myself and hit Enter.

Can anyone help me modyfy my code below to fix this?

Private Sub Worksheet_Change(ByVal Target As Range)
   
  If ActiveSheet.Range("B7").Value = "WE" Then
     
        ActiveSheet.Shapes("Box").Visible = False
     Else
        ActiveSheet.Shapes("Box").Visible = True
     End If

End Sub

Thanks
Dorthe

 

[tlowry]

Private Sub Worksheet_Change(ByVal Target As Range)
   
   
  If ActiveSheet.Range("B7").[B][COLOR=#0000cd]Text [/COLOR][/B]= "WE" Then
     
        ActiveSheet.Shapes("Box").Visible = False
     Else
        ActiveSheet.Shapes("Box").Visible = True
     End If

   
End Sub