Array in Intersect verwenden

Hi Leute,

ich habe eine Bereich beim DoubleClick definiert um einen Code auszulösen. Das mache ich wie folgt:

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

    Dim rngZelle As Range

    If Not Intersect(Range("C40:D40"), Target) Is Nothing Then
        
        With tblBuchungenPruefen2020
        
            .Select
            
            If .FilterMode Then
            .ShowAllData
            End If
            
            .Range("A2:X2").AutoFilter Field:=22, Criteria1:="April 2020"
            .Range("A2:X2").AutoFilter Field:=21, Criteria1:="1"
            
            ActiveWindow.ScrollRow = 1
    
            Cancel = True
        
        End With
        
    End If
    
End Sub