My code seems to run perfectly in updating all links in my document that I run off my desktop. It takes about 10 seconds to run. When I email the form out to a user, the code takes a few minutes to run and seems to be looping. Why is that? Am I doing something wrong?
Code:
Private Sub CommandButton1_Click()
Dim myRange
Set myRange = Selection.Range
Selection.WholeStory
Selection.Fields.Update
myRange.Select
End Sub
Thanks!