redirectLink secondario ()
Rng fioco come gamma
Per ogni rng in ActiveSheet.UsedRange.Cells
Se rng. Hyperlinks.Count = 1 allora
Con rng. Hyperlinks (1)
. L'indirizzo = sostituisce (. Indirizzo, “ServerX„, “ServerY„, 1, vbTextCompare)
.TextToDisplay = sostituiscono (.TextToDisplay, “ServerX„, “ServerY„, 1, vbTextCompare)
Estremità con
Concluder se
Dopo
Sommergibile dell'estremità
|