title: Triggering Macro With Drop Down List
body: <p>I am trying to trigger a macro with a drop down list. So far I have a working macro which selects and sorts data by column from greatest to smallest. The macro works perfectly. </p>
  
  <p>Example Macro:</p>
  
  <pre><code>    Sub Macro1()
  '
  ' Macro1 Macro
  '
  ' Keyboard Shortcut: Option+Cmd+s
  '
      Range("A1:AO125").Select
      Range("A2").Activate
      ActiveWorkbook.Worksheets("Test Model").Sort.SortFields.Clear
      ActiveWorkbook.Worksheets("Test Model").Sort.SortFields.Add Key:=Range( _
          "R2:R125"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
          xlSortNormal
      With ActiveWorkbook.Worksheets("Test Model").Sort
          .SetRange Range("A1:AO125")
          .Header = xlYes
          .MatchCase = False
          .Orientation = xlTopToBottom
          .SortMethod = xlPinYin
          .Apply
      End With
      Range("C7").Select
  End Sub
  </code></pre>
  
  <p>I would like to trigger this macro with a drop down list. I have created the drop down list and have written some syntax in VB editor under the excel's workbook column.</p>
  
  <p>Here is the syntax so far: </p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Not Intersect(Target, Range("J15")) Is Nothing Then
  
      Select Case Range("J15")
  
  
          Case "Engagement Rate % ": Macro1
  
  
      End Select
  
  End If
  
  End Sub
  </code></pre>
  
  <p>When I try to run the code nothing happens... Can someone help me with my syntax? </p>
  
  <p>I have added a snapshot of my screen below to help with the explaining.</p>
  
  <p><img src="https://i.stack.imgur.com/V5zlw.png" alt="Drop Down Example"></p>