brug af Find i VBA

Find virker fint i en "sub" - man kan tilsyneladende ikke bruge Find i en function, der kaldes fra regnearket?

Følgende kode gør det jeg vil, selv om det ikke er så effektivt:

=NextUnique(B2, B1, A2:A1000)
Hvor B1 og B2 er to tidligere værdier, der evt. er fundet med et kald til NextUnique
A2:A1000 er den range der skal søges i

Function NextUnique(this As Range, last As Range, ref As Range)
    'ref must be a sorted range
    Dim c As Range
    Dim foundlast As Boolean, foundthis As Boolean
    foundlast = False
    foundthis = False
    For Each c In ref
        If foundlast And foundthis And c.Value <> this.Value Then Exit For
        If foundlast And c.Value = this.Value Then
            foundthis = True
        End If
        If c.Value <> last.Value Then
            foundlast = True
        End If
    Next
    NextUnique = c.Offset(1)
End Function

En forklaring på at Find ikke virker må være at Find gemmer informationer om kaldet til brug i FindNext. Funktioner som kaldes fra regnearket må ikke have en sådan struktur (skal være reentrant).
Jeg mangler blot at den slags står i hjælpen (det gør det ikke i Excel 2000)