Excel/VBA: Find ja, FindNext nein

[Rouven]

Hello,

ich hab ein komisches Phänomen, von dem ich bisher nur weiß, dass es auf zweien unserer Firmenrechner (Excel 2002) auftritt. Man nehme eine leere Arbeitsmappe und trage in die erste Spalte ein:
J7.
J8.
J9.
J10.
J10.
J10.
J10.
J10.
J10.
J11.
J12.

Man trage in B1 ein "J10."
schreibe folgende VBA-Funktion (ggf. mit deutscher Arbeitsblattbezeichnung):
Function vba_find(what As String)
    Dim cellRange As Range
    Dim resultCell As Range

With Worksheets("Sheet1").Range("A1:A20")
        Set resultCell = .Find(what)
        While Not resultCell Is Nothing
            MsgBox resultCell.Row & " " & resultCell.Column
            Set resultCell = .FindNext(resultCell)
        Wend
    End With
End Function

Man trage in C1 ein =vba_find(B1)

Interessanterweise wird im ersten Durchlauf erfolgreich "4 1" ausgegeben, aber warum zum Teufel wird im nächsten Durchlauf nicht "5 1" gefunden sondern resultCell ist Nothing (laut Handbuch "ich find nichts mehr"). Ist das ein bekannter Bug? Ich bin gerade echt ratlos, wir haben diverse Parameter ausprobiert, nützt alles nix.

MfG
Rouven