Тусклое string_to_change как шнур, string_replacement как шнур
string_to_change = «\ My%20Products \»
string_replacement = «\ мои продукты \»
Тусклые hl как Hyperlink
Для каждого hl в ActiveSheet.Hyperlinks
hl. Адрес = заменяет ть (hl. Адрес, string_to_change, string_replacement)
hl.TextToDisplay = заменяют ть (hl.TextToDisplay, string_to_change, string_replacement)
Затем
|