Thanks for the quick reply. I tried that and unfortunately it doesn't seem to work. I get an error on this line:

StrOldStatus = .BuiltInDocumentProperties("Status").Value

It maybe suggests that 'status' is not a 'Built In Document Property' or that 'status' is not the correct description?

Thnaks

Karl