Excel VBA schnelles Suchen in einem Bereich

Dim Bereich As Range
    With Worksheets("Kunden").Range("a2:a1000")
    Set c = .Find("Hallo", LookIn:=xlValues)
    If Not c Is Nothing Then
        MsgBox c.Row
    Else
        MsgBox "Nicht gefunden"
    End If
End With