Probleme mit Makro

Sub Austausch()
Dim RICAktie As String
RICAktie = InputBox("Bitte RIC Aktie eingeben:", "Dateneingabe:")
With Workbooks("Template BZR in Arbeit!!!.xls")
If .Worksheets(2).Range("C:C") _
.Find(What:=RICAktie, LookAt:=xlPart) Then  (HIER BEKOMME ICH DIE FEHLERMELDUNG!!!!)
.Worksheets(4).Range("A3") = RICAktie
Else
MsgBox "Die Aktie ist nicht vorhanden bzw. die Eingabe wurde abgebrochen!", _
vbCritical, "Nur Zahlen eingeben!"
End If
End With
End Sub