Ambiguous name detected: Worksheet_BeforeDoubleClick

[ConfusedaboutVBA]

hi all

Im having trouble with the follow error 'Ambiguous name detected: Worksheet_BeforeDoubleClick' I am trying to build a macro so that when i click on cell D6 macro1 runs & then when I click on D7 another macro runs.

Below is the code that I wrote, does anyone know how to incorporate both codes so that I dont have the above error coming up? Please remember I do not want both macros to be run at the same time - I only want one macro to run when a particular cell is double clicked

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

Dim WB1 As Worksheet: Set WB1 = Sheets("Activity")
Cancel = True

Call Progress

End Sub

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

Dim WB1 As Worksheet: Set WB1 = Sheets("Activity")
Cancel = True

Call Progress1

End Sub

Thanks in advance