Fehlermeldung Typen unverträglich

Sub Auslesen1()
Dim Suchbegriff
Dim rngZelle As Range
Suchbegriff = InputBox("Bitte Name eingeben:")
Set rngZelle = Columns(1).Find(Suchbegriff, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
MsgBox rngZelle.Offset(0, 1) & vbLf & rngZelle.Offset(0, 2) & vbLf & _
rngZelle.Offset(0, 3) & vbLf & rngZelle.Offset(0, 4) & vbLf & rngZelle.Offset(0, 5) & vbLf & rngZelle.Offset(0, 6) & vbLf & rngZelle.Offset(0, 7) & vbLf & rngZelle.Offset(0, 8) & vbLf & rngZelle.Offset(0, 9) & vbLf & rngZelle.Offset(0, 10)
Else
MsgBox "Es wurde kein Eintrag zu " & Suchbegriff & " gefunden."
End If
Set rngZelle = Nothing
Set Rng = FoundCell
Do Until FoundCell Is Nothing
Set FoundCell = myRange.FindNext(after:=FoundCell)
MsgBox (FoundCell.Value)
Set Rng = Union(Rng, FoundCell)
If FoundCell.Adress = FirstFound Then Exit Do
Loop
Rng.Select
Exit Sub
NothingFound:
MsgBox ("Nichts gefunden")
End Sub