referencia excel ausente

Tenho um sistema que é executado em dois locais diferentes. Em uma das máquinas tenho o Office 2010 e em outra o 2003.

O sistema está em um HD externo.

Quando o executo na versão 2010 o sistema automaticamente substitui a referência do Excel mas o mesmo não acontece na versão 2003

Tentei utilizar o código abaixo mas verifiquei que a referência do Excel nem é testada

Como posso resolver isso?

Código :


Sub registrar()

' remove as referencias ausentes do Excel
Dim R As Reference
Dim versao As String
Dim caminho As String
Dim ref As Reference
Dim ausente As String

On Error Resume Next

For Each R In References
caminho = R.FullPath

If R.IsBroken = True Then
Set ref = References.AddFromFile(caminho)
End If
Next

End Sub

Tente colocar uma mensagem exibindo o nome das referências para ver se aparece essa mensagem.