Hjælp til Vlookup-funktion i macro?

prøv med denne brugerdefineret funktion
I arket taster du =vslåop("b";A1:B10;2;1)
1 tal sidst, returnerer værdien, 2 returnerer tegnfarve, 3 baggrundsfarve, 4 adresse, 5 række, 6 kolonne

Public Function Vslåop(Værdi As String, Område As Range, Kolonne, retur)
Dim r, rw
Dim c As Range
Dim MitArk As Worksheet
Set MitArk = Område.Parent
Application.Volatile
Set c = Område
For Each r In c
  If r.Value = Værdi Then
  rw = r.Address 'Row
  GoTo out
  End If
  Next
out:
If retur = 1 Then Vslåop = MitArk.Range(rw).Offset(0, Kolonne - 1).Value ' Værdi
If retur = 2 Then Vslåop = MitArk.Range(rw).Offset(0, Kolonne - 1).Font.ColorIndex 'Tegn farve
If retur = 3 Then Vslåop = MitArk.Range(rw).Offset(0, Kolonne - 1).Interior.ColorIndex 'Farve
If retur = 4 Then Vslåop = MitArk.Range(rw).Offset(0, Kolonne - 1).Address ' Celleadresse
If retur = 5 Then Vslåop = MitArk.Range(rw).Offset(0, Kolonne - 1).Row 'Række nr.
If retur = 6 Then Vslåop = MitArk.Range(rw).Offset(0, Kolonne - 1).Column ' kolonne nr.
If retur < 1 Or retur > 6 Then MsgBox ("Syntaks: =Vslåop(""Værdi"";[Ark!]Område;Kolonne;Retur{1-6})")
End Function

jeg fandt selv en løsning... lukker spørgsmålet...