String_to_change não ofuscante como a corda, string_replacement como a corda
string_to_change = “\ My%20Products \”
string_replacement = “\ meus produtos \”
Hl não ofuscantes como o hipervínculo
Para cada hl em ActiveSheet.Hyperlinks
hl. O endereço = substitui (hl. Endereço, string_to_change, string_replacement)
hl.TextToDisplay = substituem (hl.TextToDisplay, string_to_change, o string_replacement)
Em seguida
|