Closing a file in Excel

[Guest_imported]

When I use the following code, an error appears (runtime-error 1004: Method of class failed)

Sub insertData()
dim workbookname as string

DlgAnswer = Application.Dialogs(xlDialogOpen).Show
workbookname=activeworkbook.name
...

workbooks(workbookname).close

end sub

The purpose is to open a second workbook, retrieve data from it, and then close this workbook.
However, this code only works if only 1 sheet is open. From the moment that 2 sheets are open (even if one sheet is hidden), the code produces the error 1004.

What am I doing wrong?

 

[ratman]

Consider this:

ChDir "C:\Inventory Files"
Workbooks.Open FileName:="C:\InventoryFiles\REPORTsf.xls"
Cells.Select
Selection.Copy
Workbooks("PLZ1Plan.xls&quot.Activate 'this is already open
Cells.Select
Application.DisplayAlerts = False
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Workbooks("REPORTsf.xls&quot.Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close
Workbooks("PLZ1Plan.xls&quot.Activate



If I'm way off let me know:
drat@mediaone.net