Closing an open workbook

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" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
> news:[email protected]...
> > 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" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
> > news:[email protected]...
> > > 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
> >
> >
> >