title: How to trigger macros when clicking on a specific cell
body: <p>I want to trigger two independent macros each based on different cells.  To be specific, I want to trigger the Orange macro when cell E8 is clicked. And the Factiva macro when cell E9 is clicked. This is the code I came up with so far,,,, but does not work... The two macros are related to showing a graph(normal bar graph) !</p>
  
  <pre><code>Option Explicit
  
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Selection.Count = 1 Then
          If Not Intersect(Target, Range("E9")) Is Nothing Then
              Call Factiva
          End If
      End If
  End Sub
  
  Option Explicit
  
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Selection.Count = 1 Then
          If Not Intersect(Target, Range("E8")) Is Nothing Then
              Call Orange
          End If
      End If
  End Sub
  
  Sub Factiva()
  '
  ' Factiva Macro
  '
  
  '
      ActiveSheet.Shapes.Range(Array("factiva")).Visible = msoFalse
      ActiveSheet.Shapes.Range(Array("factiva")).Visible = msoTrue
      Application.CommandBars("Selection").Visible = False
  End Sub
  
  Sub Orange()
  '
  ' Orange Macro
  '
  
  '
      ActiveSheet.Shapes.Range(Array("Orange Business")).Visible = msoFalse
      ActiveSheet.Shapes.Range(Array("Orange Business")).Visible = msoTrue
      Application.CommandBars("Selection").Visible = False
  End Sub
  </code></pre>