Hallo Leute, ich hab hier ein kleines Problem...Kann mir hier einer erklären welche Funktionen dieser Code mit sich bringt? 

Sub Worksheet_Selectionchange(ByVal Target As Range)                                                        'Mit jedem Zellwert wird der Code ausgeführt

LetzteZeile = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row                                                'Bestimmt letze befüllte Zeile von Spalte D im der Kontaktliste
If Not Intersect(Target, Range("D7:K" & LetzteZeile)) Is Nothing Then                                       'Hervorhebung der aktiven Zeile
If Target.CountLarge > 1 Then GoTo Mehrfachwahl
    Range("B4") = Target.Row
    Range("B5") = Cells(Target.Row, 4).Value
    Range("B6").FormulaLocal = "=WENNFEHLER(VERGLEICH(B$5;INDIREKT(""'""&$B3&""'!$B$1:$B$999999"");0);0)"
    Else:
    Range("B4") = 0
    Range("B5") = 0
Mehrfachwahl:
Range("B4") = 0
    End If
End Sub