Sub UpdateReferences()
    Selection.WholeStory
    Selection.Fields.Update
    Application.Selection.EndOf
End Sub