SAMMENLIGN - find flere forekomster

Jeg har et regneark som linker til et lukket regneark (som er usorteret). Der kan være flere forekomster af samme værdi forskellige steder i regnearket, så SAMMENLIGN formlen er ikke tilstrækkelig fordi den kun finder 1. forekomst.

Jeg har prøvet denne kode og den gør det den skal, bortset fra den ikke virker på lukkede regneark:
Function forekomster(range_look As Range, find_it As String, _
    occurrence As Long, offset_row As Long, offset_col As Long)
Dim lCount As Long
Dim rFound As Range

Set rFound = range_look.Cells(1, 1)
        For lCount = 1 To occurrence
            Set rFound = range_look.Find(find_it, rFound, xlValues, xlWhole)
        Next lCount
forekomster = rFound.Offset(offset_row, offset_col)
End Function

Kan jeg gøre noget for at det skal virke på lukkede regneark?