Hi Folks,

I have a document full of text boxes, some of which have links to an Excel spreadsheet. Because it's a 2003 document and I have excel 2007, the links don't update automatically and I have to select every link and press f9. I'v written this macro and it seems to work, is there a better/more efficient way of doing it?

Dim objboxes As Shape

Application.ScreenUpdating = False
For Each objboxes In ActiveDocument.Shapes
    objboxes.Select
    Selection.WholeStory
    Selection.Fields.Update
    Next objboxes

Application.ScreenUpdating = True
End Sub
Thank you!