Teilstring wird nicht gefunden

strFind = "Inv"
Set wsSearch = ThisWorkbook.Sheets(Tbl2)
'Suche in der Mappe in Spalte W (Wert der Zelle muss in diesem Fall komplett ü _
bereinstimmen, wenn das nicht gewünscht ist LookAt:= auf xlPart ändern)
With wsSearch.Range("G:I")
Set c = .Find(strFind, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Range(c.Address).Select      'Die Zeile in der der zu suchende Wert ist  _
markieren
Do
Range(c.Address).Select     'alle Zeilen in denen der zu suchende Wert  _
vorkommt markieren
If Range("C" & c.Row)  "" Then
'Finde den nächsten passenden Eintrag
Set c = .FindNext(c)
Else
MsgBox "In Zeile " & c.Row & " ist wahrscheinlich eine Inventarnummer zu  _
finden" & Chr(10) & _
"Lies dir diesen Eintrag durch:" & Chr(10) & _
c & Chr(10) & _
"Wenn eine Inventarnummer vorhanden ist, dann trage sie unbedingt ein"
Exit Sub
End If
Loop While Not c Is Nothing And c.Address  firstAddress
End If
End With