Application.close information required

[prshnthvn]

Hello Everyone,

Can anyone let me know how to close a chosen, opened workbook among all the other opened workbooks?

Actually i am opening a workbook(DATA1.xls) in my macro(calculator.xls) to get the data needed for my calculation. After copying the data from DATA1.xls, i want to close that workbook.

The workbook name can change so i cannot use workbooks(DATA1.xls).close always.
I am using a variable "DATA" while opening that workbook, is there any way to use this to close the workbook?

DATA = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Please select a Master list file")

Thanks in advance;
Regards,
Prashanth.

[Bob Phillips]

Set a public workbook variable when you open the workbook

[vba]

DATA = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Please select a Master list file")
Set wbData = Workbooks.open(DATA)

'do stuff

wbData.Close
[/vba]

[prshnthvn]

Set a public workbook variable when you open the workbook

[vba]

DATA = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Please select a Master list file")
Set wbData = Workbooks.open(DATA)

'do stuff

wbData.Close
[/vba]

Thanks for the early reply xld,

But the above code did not work for some reason.
i tried something along your liines and it worked
Data = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Please select the Master list file")
Workbooks.Open Filename:=MasterList
wb1 = ActiveWorkbook.Name
do stuff
Workbooks(wb1).Close

Regards,
Prashanth

[mdmackillop]

Add [VBA]Dim wbData as Workbook[/VBA] at the start of XLD's code