Fix en Funktion

Function Lokup(Mycel As String, Mysheet As String, Myrange As String)
Dim r, rw
Application.Volatile
  For Each r In Sheets(Mysheet).Range(Myrange)
  If r.Value = Range(Mycel).Value Then rw = r.Row
  Next
Lokup = Sheets(Mysheet).Cells(rw, Sheets(Mysheet).Cells(rw, 2).End(xlToRight).Column).Value
End Function

Ovenstående Funktion slår værdien i A1 op i Ark1 i området A1:A100
Når en værdien er fundet, finder den den første ikke tomme celle i kolonnerne til højre
og returnerer værdien herfra

=Lokup("A1";"Ark1";"A1:A100")

Som det ses skal argumenterne "A1", "Ark1", og ""A1:A100" rammes ind i anførselstegn

Hvordan ændres Funktionen så dette ikke er nødvendigt og man kan nøjes med :

=Lokup(A1;Ark1;A1:A100)

Hvem har et bud :-)