With Application.ActivePresentation.BuiltInDocumentProperties If .Item("author").Value = "Manager1" Then .Item("category").Value = "Creative Writing" End If End With