Doble clic en rangos diferentes de celdas para abrir dos Formularios distintos

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Cancel = True
    Set Activador = Range("A15:A5000") ' También puedes utilizar el nombre de un rango que exista en la hoja activa
    If Not Intersect(Target, Activador) Is Nothing Then
        Conceptos1001.Show
    End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Cancel = True
    Set Activador = Range("k15:k5000") ' También puedes utilizar el nombre de un rango que exista en la hoja activa
    If Not Intersect(Target, Activador) Is Nothing Then
        Departamentos.Show
    End If
End Sub

Dam Tengos dos diferetes rangos en un mismo libro activo, para abrir dos formularios diferente en cada rango, cuando doy doble clic en una celda del rango, pero me sale que hay un nombre ambiguo y no se ejecuta la macro