Hent data fra en Excelfil til en anden via VBA

Jeg ville prøve med noget i retning af

Sub HentFraVersion()

Dim FuldStiOgFil As Variant

'Importer data fra tidligere version (slår op på drev C:)

    ChDrive "C:"
    ChDir "C:\"

    FuldStiOgFil = Application.GetOpenFilename

    Dim fraFil As Workbook
    Dim tilFil As Workbook
    Set tilFil = ActiveWorkbook
    Set fraFil = Workbooks.Open(FuldStiOgFil, UpdateLinks:=False, ReadOnly:=True)
    tilFil.Worksheets(1).Range("A1").Value = fraFil.Worksheets(1).Range("A1").Value

    fraFil.Close SaveChanges:=False

End Sub

Hej tvc,
Kunne du bruge mit forslag?

Hej Thor
Jeg har ikke prøvet det endnu, men gør det her en af dagene og vender tilbage.
Foreløbig tak

Hej Thor
Når jeg åbner den valgte fil har jeg en userform i denne der aktiveres (aktiveres ved åbning af fil).

Denne vil jeg gerne fange og lukke.

fraFil.frm_Bruger.Hide

Hvad gør jeg galt?

Det bedste er vel at undgå helt at den åbner?
Det gør man sådan her

[code]
Application.EnableEvents = False 
Set fraFil = Workbooks.Open(FuldStiOgFil, UpdateLinks:=False, ReadOnly:=True)
Application.EnableEvents = True
[/code]

Perfekt - tak!