ThisWorkbook.Save
ThisWorkbook.Saved = True
The first statement is the same as mine in the context of the ThisWorkbook module, and the second is redundant, but sure, that's fine.