Gerando Contrato no Word

Pessoal é o seguinte peguei este codigo na net.

Dim temp As String

Private Sub Command1_Click()

'On Error GoTo trata_erro

Set ObjWord = New Word.Application
' Desabilita o botao de comando
'cmdContrato.Enabled = False
' nome do relatorio pré montado
ObjWord.Documents.Open ("c:Relatoriocarta.doc")

' chama rotina para substituicao
Call Substitui_Var("@n", txtNumero)
Call Substitui_Var("@nome", txtnome)
Call Substitui_Var("data", txtdata)

' Salva o documento com um novo nome
ObjWord.ActiveDocument.SaveAs (txtcontrato)
'Encerra o word
'ObjWord.Quit
' informa ao usuario que o contrato foi gerado
MsgBox "Contrato gerado com sucesso! em : " & txtcontrato, vbInformation, " Contrato Gerado "
' libera memoria
Set ObjWord = Nothing
Exit Sub

trata_erro:
MsgBox "Ocorreu um erro durante o processamento " & " - Erro numero : " & Err.Number

End Sub

Private Sub Substitui_Var(Header As String, Data As String)
  With ObjWord.Selection.Find
     .ClearFormatting
     .Text = Header
     .Execute Forward:=True
  End With

  Clipboard.Clear
  Clipboard.SetText (Data)
  ObjWord.Selection.Paste
  Clipboard.Clear
End Sub

OBS.: Esta dando erro nesta linha 'With ObjWord.Selection.Find'
Alguem pode me dizer o que ta acontecendo?
Numero do Erro 424.
Abri uma janela dizendo que o ARQUIVO ESTA EM USO, com as opçoes de abri-lo como Leitura, Criar uma cópia..., Receber notificação.
teria como eliminar esta caixa de mensagem?