Skriv aktive fil navn i celle A1 & åben fil hvis navn står i A1

Du behøver sådan set ingen kode.
Prøv denne formel:
=CELLE("filename";A1)

Hvis du placerer markøren i A1 og vælger Indsæt Hyperlink, kan du i Tekst ,der skal vises, nmavnet på den fil, der skal åbnes (eller jan's formel), og du kan fortælle, hvilken fil hyperlinket skal åbne.

Hvis jeg skriver formlen =CELLE("filename";A) får jeg teksten
C:\revisor\[kassebog.FAG]Kasserapport Jeg vil gerne nøjes med kassebog.FAG

den version af Excel jeg bruger er Excel Windows 95 ver. 7, den er der ikke hyberlink i. Det jeg gerne vil er at man  midt i en kode kan aflæse filnavnet i A1 og åbne den.

se evt kabbaks svar http://www.eksperten.dk/spm/386483

kabbaks svar på http://www.eksperten.dk/spm/386483 virker.

Men er der nogen der kan hjælpe med det sidste.
(at man  midt i en kode kan aflæse filnavnet i A1 og åbne den.)

Hvis der er en sti til filen i A1 så slet alle de steder der stå sti

Dim FilNavn As String
Dim Sti As String
Sti = "c:\Dokumenter\"
FilNavn = ActiveWorkbook.ActiveSheet.Range("A1")
Workbooks.Open Sti & FilNavn

Tusind tak, Hvordan giver jeg dig nogle point?

Det behøver du ikke. Det er nok, at svaret kan bruges :-)