Delete WB
..fullname includes the drive and path.
Workbooks(sName) <-- no quotes around the variable
wants just the name (no drive, no path)
sname = thisworkbook.name
sName = Left(sName, Len(sName) - 4) & "X.xls"
workbooks(sName).close savechanges:=false
kill thisworkbook.path & "\" & sname
(You'd still want to specify the full path for the kill statement.)
Ronbo wrote:
I have two WorkBooks (in the same directory) open Test and TestX. From Test
I want to close and delete TestX. The code I am ussing is;
Sub Delete WB()
sName = ThisWorkbook.FullName
sName = Left(sName, Len(sName) - 4) & "X.xls"
Workbooks("sName").Close SaveChanges:=False
Kill "sName"
End Sub
It errors on the close statement. What am I doing wrong?
Thanks
--
Dave Peterson
|