What's wrong with my code?

[ksigcajun]

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?

Private Sub CommandButton1_Click()
        Dim myRange     
    Set myRange = Selection.Range     
    Selection.WholeStory
    Selection.Fields.Update     
    myRange.Select    
End Sub

Thanks!