Problema con Modificar vínculos

Hola:

Tengo problemas para "romper vinculo" ... La verdad que quiero eliminar este vinculo que no lo necesito ... Intente con esta macro pero no paso nada...

Sub SinVinculosEx()
Dim sino, miLink
Dim i As Integer
'aviso de control
sino = MsgBox("¿Ha guardado una copia de seguridad?", vbYesNo)
If sino <> vbYes Then
MsgBox "Realice una copia y vuelva a ejecutar la rutina"
Exit Sub
End If
miLink = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If Not IsEmpty(miLink) Then
i = 1
Do Until IsEmpty(miLink)
On Error GoTo Fin
ActiveWorkbook.BreakLink Name:=miLink(i), _
Type:=xlLinkTypeExcelLinks
i = i + 1
Loop
End If
Fin:
End Sub

Por favor otra solución seria ideal

saludos