Double Click on cell to run Macro

Hi,

I am trying to run a macro when I double click on a certain cell (D34). The cell has data in it (Southeast NSC). What Im expecting to happen is once I double click on the cell the macro will run the retrieve and I will end up at expense chart page.

The macro I am trying to run is an Essbase retrieve.

Sub Drill_Down()

    application.Goto Reference:="Chart_Retrieve"
    x = EssMenuVRetrieve()
    range("A3").Select
   
    
 Sheets("Expense Chart").Select
    range("a3").Select
    
 range("B5").Select
    ActiveSheet.PivotTables("PivotTable5").PivotCache.Refresh
    range("C26").Select
    ActiveSheet.PivotTables("PivotTable6").PivotCache.Refresh
    
 Sheets("Expense Chart").Select
    range("f1").Select
    
End Sub

I tried using the macro below but no luck:

Private Sub Worksheet_SelectionChange(ByVal Target As range)
If Intersect(Target, range("C34:D34")) Is Nothing Then Exit Sub
Call Drill_Down
End Sub

and i tried:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As range, Cancel As Boolean)

   Select Case Target.Address
      Case Sheets("Forecast Dashboard").Select
            range("D34").Select
         Cancel = True
         Run ([Drill_Down])
      
   End Select
End Sub

Please Help