String_to_change dévil como secuencia, string_replacement como secuencia
string_to_change = “\ My%20Products \”
string_replacement = “\ mis productos \”
Hl déviles como enlace hipertexto
Para cada hl en ActiveSheet.Hyperlinks
hl. La dirección = substituye (los hl. Dirección, string_to_change, string_replacement)
hl.TextToDisplay = substituyen (hl.TextToDisplay, string_to_change, el string_replacement)
Después
|