Thats brill. One other little thing. How do I run a 2nd macro automatically once this ones run.

Private Sub Document_Open()
Dim StrFold As String
With Application
MsgBox "Please choose the template that applies"
StrFold = .Options.DefaultFilePath(wdDocumentsPath)
With .Dialogs(wdDialogFileOpen)
.Name = "\\cr-na2\users\glennm\test \"
.Show
End With

.ChangeFileOpenDirectory StrFold
End Sub