Jak pomocí makra upravit hypertextový odkaz?

[X-sat]

Zdravím. Prosím o radu. Lze pomocí makra upravit hypertextové odkazy v buňkách Excelu 2007?

Konkrétně - aby mi makro prohledalo hypertextové odkazy a po nalezení textu "/%09" v hypertextovém odkazu tento text smazalo?

příklad odkazu:

před: http://www.abcd.com/aaa/oo/%09/idnexp.php

po: http://www.abcd.com/aaa/oo/idnexp.php

Děkuji.

[Reklama]

[Jjg]

Zkuste Makro:
--------------------------------------------------------------------
Sub Smazat()
Dim url As String, najit As String, nahradit As String
Dim hlnk As Hyperlink

najit = "/%09" ' text ke smazání
nahradit = "" ' čím jej nahradit

For Each hlnk In ActiveSheet.Hyperlinks ' projít všehny hyp. odkazy na aktivím listu
url = Application.WorksheetFunction.Substitute(hlnk.Address, najit, nahradit) ' v proměěné url upravená adresa
hlnk.Address = url ' vyměnit adresu v odkazu upravenou adresou
Next hlnk

End Sub
------------------------------------------------------------------
Makro zkopírujte a vložte do modulu VBA v sešitu, uložte jej jako sešit s makry.
Po spuštění upraví odkazy v aktivním listu

[X-sat]

SUPER, díky moc!!!