åbne fil som read-only vha kode

Prøve den her:
Application.Workbooks.Open Filename:=fil, ReadOnly:=True, IgnoreReadonlyrecommended:=True

hvor "fil" er navnet på den fil du vil åbne

Jeg har nu sakset lidt og forsøgt at køre følgende, men så vidt jeg kan se åbnes filen ikke. Det er ihvertfald ikke muligt at fylde noget i array.

Dim MyArray As Variant
On Error Resume Next
    Workbooks("fil").Activate
If Err = 9 Then Application.Workbooks.Open_Filename:="fil", ReadOnly:=True, IgnoreReadonlyrecommended:=True
On Error GoTo 0

MyArray = Workbooks("fil").Worksheets("ark").Range("A1:Q2000")

Prøv at fjerne underscore mellem "Open" og "Filename"

Underscoren er blot et levn fra noget Copy/Paste. Koden er afviklet med et mellemrum mellem open og filename.

Er det mon fejlkoden, der er forkert?

Prøv at fjerne "" omkring fil i filename så skulle filen blive åbnet