redirectLink secundário ()
Rng não ofuscante como a escala
Para cada rng em ActiveSheet.UsedRange.Cells
Se rng. Hyperlinks.Count = 1 então
Com rng. Hipervínculo (1)
. O endereço = substitui (. Endereço, “ServerX”, “ServerY”, 1, vbTextCompare)
.TextToDisplay = substituem (.TextToDisplay, “ServerX”, “ServerY”, 1, o vbTextCompare)
Extremidade com
Terminar se
Em seguida
Submarino da extremidade
|