Sub MacroOpenFile()

Dim fileToOpen
Dim oWb As Workbook
fileToOpen = Application.GetOpenFilename("Excel Files (*.csv), *.csv")
If fileToOpen < False Then
Workbooks.Open fileToOpen
End If
Set oWb = ActiveWorkbook
Sheets.Select
Sheets.Copy Befo=Workbooks("MACRO.xls").Sheets(1)
oWb.Close



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"MSHO" wrote in message
...
This is what I have. I'm not sure what to do with it. It works by having
the
user open a file, but then the file needs to be closed.

Sub MacroOpenFile()

Dim fileToOpen
fileToOpen = Application.GetOpenFilename("Excel Files (*.csv), *.csv")
If fileToOpen < False Then
Workbooks.Open fileToOpen
End If
Sheets.Select
Sheets.Copy Befo=Workbooks("MACRO").Sheets(1)
Workbooks(fileToOpen).Close


"Bob Phillips" wrote:

No, I showed that, just use

Workbooks(filename).Close

where filename would be defined such as

filename = "myBook.xls"

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"MSHO" wrote in message
...
I tried that too. The problem is the file is a variable name, so do I
still
put the quotes? Thanks for your help.

"Bob Phillips" wrote:

Workbooks(filename).Close

such as

Workbooks("myBook.xls").Close

Note that if the file is 'dirty' you will get prompted to save it.
You
can
either preced it with

Application.DisplayAlerts = False

to avoid the message, or avoid the save with

Workbooks("myBook.xls").Close SaveChanges:=False

Application.Quit would cause Excel to shutdown.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"MSHO" wrote in message
...
How do I get an excel workbook to close using a macro?
I tried Application(filename).Quit but it didn't work.

Thanks

Mikayla