This example loops through all the floating shapes on the active document and sets all linked Microsoft Excel worksheets to be updated automatically.
For Each s In ActiveDocument.Shapes
If s.Type = msoLinkedOLEObject Then
If s.OLEFormat.ProgID = "Excel.Sheet" Then
s.LinkFormat.AutoUpdate = True
End If
End If
Next