Data fra lukket fil

Hej

Denne funktion har bak udarbejdet i 2004. Er der en der kan hjælpe mig med at få den tilpasset så variablerne er sti, filnavn, ark?

'Sti og filnavn i Kolonne A, Ark og celle i kolonne B.
'Marker i kolonne C, de celler der ønskes udfyldt og kør makroen

Sub GetTheCell()
Dim Sti_Fil As String, Ark_Adr As String
Dim Sti As String, Fil As String, Ark As String, Adr As String
Dim lTest As Long
Dim rng As Range
Set rng = Selection
On Error Resume Next
For Each c In rng
    If IsEmpty(c.Offset(0, -1)) Then GoTo igen
    Sti_Fil = c.Offset(0, -2)
    Ark_Adr = c.Offset(0, -1)
    lTest = InStrRev(Sti_Fil, "\")
    Sti = Left(Sti_Fil, lTest)
    Fil = Mid(Sti_Fil, lTest + 1)
    lTest = InStrRev(Ark_Adr, "!")
    Ark = Left(Ark_Adr, lTest - 1)
    Adr = Mid(Ark_Adr, lTest + 1)
    c.Value = hentceller(Sti, Fil, Ark, Adr)
igen:
Next
End Sub

Function hentceller(p, f, s, c)
hentceller = "='" & p & "[" & f & "]" & s & "'!" & Range(c).Address(, , xlA1)
End Function