Sub oder Function nicht definiert

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Wert As String
Call Auswertung
Worksheets("Auswertung").Range("A1").Value = ActiveSheet.Cells(64, 5).Value
Wert = ActiveSheet.Cells(64, 5).Value
Worksheets("Auswertung").Range("B6").FormulaR1C1 = Left(Right(Wert, Find("Gesamtauswertung:  _
", Wert, 1) + 5), Find("%", Right(Wert, Find("Gesamtauswertung: ", Wert, 1) + 5)) - 1)
End Sub

Danke für die Hilfe
Gruß