redirectLink secundario ()
Rng dévil como gama
Para cada rng en ActiveSheet.UsedRange.Cells
Si rng. Hyperlinks.Count = 1 entonces
Con el rng. Enlaces hipertexto (1)
. La dirección = substituye (. Dirección, “ServerX”, “ServerY”, 1, vbTextCompare)
.TextToDisplay = substituyen (.TextToDisplay, “ServerX”, “ServerY”, 1, el vbTextCompare)
Extremo con
Terminar si
Después
Submarino del extremo
|