Try the following (must be in another file; untested)

dim wB as string
wB = activeworkbook.fullpath
activeworkbook.close false
Kill wB

Robert Flanagan
Macro Systems
Delaware, U.S. 302-234-9857
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

"ajliaks " wrote in message
...
Hi all,

I am trying to remove a specific Workbook using code.

I am trying this, but getting error!

Ruta = Left(ActiveWorkbook.Path, _
Len(ActiveWorkbook.Path) - Val(ActiveWorkbook.Name))

Ruta = Ruta & "\" & ToolToErase

Workbooks.Delete Filename:=Ruta


---
Message posted from http://www.ExcelForum.com/