Hente data fra extern excel fil vha af navnet hentet fra en celle

Ingen der kan hjælpe? Vil gerne give flere point.

Kunne løsningen så være, at når celle A2 markeres i regneark - så hentes værdien i A2 i det ark, som er navngivet i A1?

supertekst - ja.. hvordan?

Sådan:

Rem Koden indsættes i VBA-vinduet for Ark1 i HovedRegneArket
Rem ========================================================
Dim xlsFil
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        værdi = hentFraFil(Range("A1"))
        Target.Value = værdi
    End If
End Sub
Private Function hentFraFil(filSti)
On Error GoTo fejl

    Set xlsFil = CreateObject("Excel.Application")
    With xlsFil
        .Workbooks.Open filSti
        hentFraFil = .ActiveWorkbook.Sheets(1).Range("A2")
    End With
   
    lukXlsFil
    Exit Function
   
fejl:
    hentFraFil = "FEJL"
    lukXlsFil
End Function
Private Sub lukXlsFil()
On Error Resume Next
    xlsFil.Application.Quit
    Set xlsFil = Nothing
End Sub

hej supertekst - jeg vil lige kigge på koden, og vende tilbage senere.. Tak for dit svar.