String_to_change fioco come stringa, string_replacement come stringa
string_to_change = “\ My%20Products \„
string_replacement = “\ miei prodotti \„
Hl fiochi come Hyperlink
Per ogni hl in ActiveSheet.Hyperlinks
hl. L'indirizzo = sostituisce (hl. Indirizzo, string_to_change, string_replacement)
hl.TextToDisplay = sostituiscono (hl.TextToDisplay, string_to_change, string_replacement)
Dopo
|