Как быстро убить ссылки на файл?

[ZhukElena]

Есть книга в ней консолидируются данные из разных файликов, один из них больше не нужен, как можно быстро убить ссылки на него? Кстати эксель 2003
Спасибо!

[JTG]

Что-нибудь вроде

Sub LinksDelete()
  total = ActiveDocument.Hyperlinks.Count
  For current = ActiveDocument.Hyperlinks.Count To 1 Step -1
    If ActiveDocument.Hyperlinks(current).Address = "http://blablabla" Then ActiveDocument.Hyperlinks(current).Delete
  Next current
End Sub