I suspect it's because GetOpenFilename returns to fName a path as well
as the file name.


Try:

Dim fName As Variant
Dim myrng As Range
fName = Application.GetOpenFilename
If fName = False Then Exit Sub 'User cancelled
Workbooks.Open Filename:=fName
Set myrng = ActiveWorkbook.Worksheets("Invoices").Range("A1:B1 3")



In article ,
"Jeff" wrote:

Hi,

I don't understand why I get "Subcription out of range" error msg when I
want to set a range (myrng)
Here's my VBA Macro:
Dim fName As String
fName = Application.GetOpenFilename()
Workbooks.Open filename:=fName
Set myrng = Workbooks(fName).Worksheets("Invoices").Range("a1: b13")
Thanks