Dunkel string_to_change som stränger, string_replacement som stränger
string_to_change = ”\ My%20Products \”,
string_replacement = ”\ min produkter \”,
Dunkla hl som Hyperlink
För varje hl i ActiveSheet.Hyperlinks
hl. Tilltala = byt ut (hl. Tilltala string_to_change, string_replacement),
hl.TextToDisplay = byter ut (hl.TextToDisplay, string_to_change, string_replacementen)
Därefter
|