AYUDA CON MACRO

Hola, quería crear una macro que revisara todos los hipervinculos de una hoja
de excel y cuando encontrara uno con una ruta determinada, la renombrara o
sustituyera por otra. Un amigo me paso la que reproduzco más abajo, pero no
funciona. Si alguien pudiera decirme donde falla y que tengo que hacer para
que funcione, se lo agradecería. La macro es la siguiente:

Sub HyperLinkChange()
Dim oldtext As String
Dim newtext As String
Dim h As Hyperlink

' These can be any text portion of a hyperlink.
oldtext = "C:\Documents and Settings\user\Datos de
programa\Microsoft\Excel\"
newtext = "\\server\CarpetaComun\Comercial\Compras\"

' Check all hyperlinks on active sheet.
For Each h In ActiveSheet.Hyperlinks
x = InStr(1, h.Address, oldtext)
If x > 0 Then
If h.TextToDisplay = h.Address Then
h.TextToDisplay = newtext
End If
h.Address = Application.WorksheetFunction. _
Substitute(h.Address, oldtext, newtext)
End If
Next
End Sub