Makro mit Find-Funktion und die Rückkehr cell position

Ich versuche zu erkennen, dass eine Funktion mit zwei Eingängen (sheetname, word) und die Rückkehr der Zelle, die Position von "Wort" in (Zeile , Spalte)
Hier ist der code für die Rückgabe der Zeile mit dem Wert

    Function RowFinder(sheet1 As String, word1 As String) As Integer
    Dim rng As Range
    Dim rngFound As Range

    ' I know that the word is situated btw A and C
    Set rng = Sheets(sheet1).Range("A:C")
    Set rngFound = rng.Find("word1", LookAt:=xlWhole, SearchOrder:=xlByRows)

    If rngFound Is Nothing Then
        MsgBox "not found"
    Else:
        MsgBox "found"
        RowFinder = rngFound.row
    End If

    End Function

    Private Sub CommandButton1_Click()
    Call RowFinder("Feuil1", "A")
    End Sub

Ich nicht zu finden, mit "A" in Feuil1 wie oben im code. jedes mal, wenn ich den code auszuführen, ich habe die msg "nicht gefunden". -Ich bin sicher, dass es -

Danke für die Hilfe!