Added Kill Statement results in error

[Bridgetree]

I have a macro that imports a bunch of flat files into separate worksheets in another workbook then at the end activates the original workbook containing the macro and closes it like this:

Windows("ORIGINALFile.xls").Activate
ActiveWorkbook.Close False

All I did was add a KILL statement before the close to delete all the flat files like this:

KILL "c:\folder1\folder2\filena*"
Windows("ORIGINALFile.xls").Activate
ActiveWorkbook.Close False

and now I get an error on the activate. I don't have a very good VBA reference so I'm not sure I'm doing it with the correct commands? Can anyone help me with why it worked before the KILL statement was added and now doesn't?

 

[acw]

Hi

Have you closed all the flat files before trying to run the KILL statement?

Tony

 

[Bridgetree]

Sorry it took me so long to get back to this. I am assuming that all the files are closed since I had also tried the Kill Statement alone. Is there a command to use to make sure they are all closed?

 

[Artemus]

Try the following. It will close all files except the original file, delete the selected files and then close the original file.

For Each w In Workbooks
If w.Name <> "ORIGINALFile.xls" Then
w.Close savechanges:=False
End If
Next w
KILL "c:\folder1\folder2\filena*"
Workbooks("ORIGINALFile.xls").Activate
ActiveWorkbook.Close False