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

If the code for the sub Drill_Down is in a standard module this is all you should need to call it.

 
Call Drill_Down

If want to check the cell that was double clicked is D34 them use this

If Target.Address = "$D$34" Then

So combined.

 

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

   If Target.Address = "$D$34" Then
         Cancel = True
         Call Drill_Down
   End If
      
End Sub

PS Can you use code tags when posting code?