How about changing
[vba]
If ActiveWorkbook.Saved = True Then .[A1000] = "Saved"
[/vba]
to
[vba]
If ActiveWorkbook.Saved Then
Range("A1000").Value = "Saved"
ActiveWorkbook.Save
End If
[/vba]
or maybe trap the save eevent and write it before the save happens.