Trying to close an open workbook that is not the active workbook. It was
opened for reference as a looked but after I obtain the information I need I
want to close it.

'working file
myFileName = Application.GetOpenFilename("Text Files, *.txt")

'refernce file
VMM_FileName = Application.GetOpenFilename("Text Files, *.txt")

code here...

'close reference file
Workbooks(VMM_FileName).Activate
ActiveWorkbook.Close False

With this I get Run-time error '9': Subscript out of range

Thanks

Try this

'working file
myFileName = Application.GetOpenFilename("Text Files, *.txt")

'refernce file
VMM_FileName = Application.GetOpenFilename("Text Files, *.txt")
Set VMM_WB = Worksbooks.open(VMM_Filename)

code here...

'close reference file
VMM_WB.Close False


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Dan" wrote in message
...
Trying to close an open workbook that is not the active workbook. It was
opened for reference as a looked but after I obtain the information I need
I
want to close it.

'working file
myFileName = Application.GetOpenFilename("Text Files, *.txt")

'refernce file
VMM_FileName = Application.GetOpenFilename("Text Files, *.txt")

code here...

'close reference file
Workbooks(VMM_FileName).Activate
ActiveWorkbook.Close False

With this I get Run-time error '9': Subscript out of range

Thanks

For some reason thie created an error. When I changed it to

Set VMM_Workbook = ActiveWorkbook
.....
VMM_Workbook.Activate
ActiveWorkbook.Close False

This worked. Thanks

"Bob Phillips" wrote:

Try this

'working file
myFileName = Application.GetOpenFilename("Text Files, *.txt")

'refernce file
VMM_FileName = Application.GetOpenFilename("Text Files, *.txt")
Set VMM_WB = Worksbooks.open(VMM_Filename)

code here...

'close reference file
VMM_WB.Close False


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Dan" wrote in message
...
Trying to close an open workbook that is not the active workbook. It was
opened for reference as a looked but after I obtain the information I need
I
want to close it.

'working file
myFileName = Application.GetOpenFilename("Text Files, *.txt")

'refernce file
VMM_FileName = Application.GetOpenFilename("Text Files, *.txt")

code here...

'close reference file
Workbooks(VMM_FileName).Activate
ActiveWorkbook.Close False

With this I get Run-time error '9': Subscript out of range

Thanks

In my example it was VMM_WB not VMM_Workbook. Did you use that throughout,
and declare it as type Workbook?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Dan" wrote in message
...
For some reason thie created an error. When I changed it to

Set VMM_Workbook = ActiveWorkbook
....
VMM_Workbook.Activate
ActiveWorkbook.Close False

This worked. Thanks

"Bob Phillips" wrote:

Try this

'working file
myFileName = Application.GetOpenFilename("Text Files, *.txt")

'refernce file
VMM_FileName = Application.GetOpenFilename("Text Files, *.txt")
Set VMM_WB = Worksbooks.open(VMM_Filename)

code here...

'close reference file
VMM_WB.Close False


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Dan" wrote in message
...
Trying to close an open workbook that is not the active workbook. It
was
opened for reference as a looked but after I obtain the information I
need
I
want to close it.

'working file
myFileName = Application.GetOpenFilename("Text Files, *.txt")

'refernce file
VMM_FileName = Application.GetOpenFilename("Text Files, *.txt")

code here...

'close reference file
Workbooks(VMM_FileName).Activate
ActiveWorkbook.Close False

With this I get Run-time error '9': Subscript out of range

Thanks