Tessa,

Try the following code:

With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close savechanges:=False
End With


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Tessa" wrote in message
...
Is it possible to create a macro that deletes the workbook
it's saved in ?