hente data fra anden excelfil

Hej. Jeg har følgende stump kode jeg gerne vil have hjælp til at tilrette. Og jeg er ret grøn

I versions - filen er der en masse rækker med data. I kolonne B står kundenummeret feks 2000

Hver fil jeg henter data fra hedder kundenr+v.cls feks 2000v.xls

Jeg skal nu sikre at jeg henter data fra den rette række dvs den række med rette kundenummer i kolonne B

I kodekesmlet er det fra række 5 der hentes data fra. Det tal skulle jeg så gerne kunne finde autoamtisk.
Alle filer data skal over i er ens bortset fra navnet på filerne.

Nogen der har et forslag????

Sub TestGetValue()
    p = "\\sti\Versionsstyring"
    f = "version.xls"
    s = "Ark1"
    a = "A1"
    Application.ScreenUpdating = False
       
            a = Cells(5, 2).Address
            Cells(3, 3) = GetValue(p, f, s, a)
            a = Cells(5, 3).Address
            Cells(11, 3) = GetValue(p, f, s, a)
            a = Cells(5, 4).Address
            Cells(15, 3) = GetValue(p, f, s, a)
   
     
      Application.ScreenUpdating = True
End Sub

Private Function GetValue(path, file, sheet, ref)
'  Retrieves a value from a closed workbook
    Dim arg As String

'  Make sure the file exists
    If Right(path, 1) <> "\" Then path = path & "\"
    If Dir(path & file) = "" Then
        GetValue = "Filen findes ikke"
        Exit Function
    End If

'  Create the argument
    arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
      Range(ref).Range("A1").Address(, , xlR1C1)

'  Execute an XLM macro
    GetValue = ExecuteExcel4Macro(arg)
End Function


LN