Opslags funktion giver fejl værdi (excelent hjælp)

Hej Eksperter,

Excelent jeg håber du ser denne post da det er dig der har udviklet funktionen.

Når jeg bruger nedenstående funktion har jeg i celle D5 et "søgefelt" Her taster man så et kunde navn eller en del af et kunde navn.
I et andet felt skal den så returnere opslagsværdien, formlen for denne hedder =IF(D5="";"";opslag(C10;D5;A4:A101;2;0)). og det fungerer også fint når man benytter arket.

Men hvis man gemmer dokumentet efter man har tastet et kunde navn og man åbner den igen frem kommer der flg. værdi i feltet: #NAME? og så skal man stille sig med cursoren i feltet og trykke "ENTER" før den kommer frem med den rigtige værdi igen.

Det vil jeg gerne have væk. sådan at den selvfølgelig stadig returnere den korrekte værdi. Herunder ses koden til funktionen:

Function Opslag(ark, hvad, hvor As Range, nr, kol)
Dim med(30, 12): t = 1

Application.Volatile

For Each c In Sheets(ActiveSheet.Range(ark.Address).Value).Range(hvor.Address)
If InStr(1, c, hvad, vbTextCompare) > 0 Then
med(t, 0) = c.Offset(0, 0)
med(t, 1) = c.Offset(0, 1)
med(t, 2) = c.Offset(0, 2)
med(t, 3) = c.Offset(0, 3)
med(t, 4) = c.Offset(0, 4)
med(t, 5) = c.Offset(0, 5)
med(t, 6) = c.Offset(0, 6)
med(t, 7) = c.Offset(0, 7)
med(t, 8) = c.Offset(0, 8)
med(t, 9) = c.Offset(0, 9)
med(t, 10) = c.Offset(0, 10)
med(t, 11) = c.Offset(0, 11)
t = t + 1
End If
Next
If med(nr, kol) <> 0 Then Opslag = med(nr, kol) Else Opslag = ""

End Function


Jeg har forsøgt at ændre værdien her i anden sidste linje Else Opslag = ""
til noget andet men det hjælper heller ikke??

Nogen der kan hjælpe ?

pft!