"Dave Ramage" wrote in message
...

Not that this code must be run from a separate workbook or add-in as you
cannot delete the workbook that you are running the macro from.


You can try this from the same workbook

With wbMain
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close SaveChanges:=False
End With