Aside from the fact your posted code is missing the closing:
End If
End With
End Sub
statements, which I assume it has, your code looks OK. What is the error message and what code line, if any, if highlighted at that time?

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab at the bottom of this screen.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]