UnderredirectLink ()
Dunkel rng som spänner
För varje rng i ActiveSheet.UsedRange.Cells
Om rng. Hyperlinks.Count = 1 därefter
Med rng. Hyperlinks (1)
. Tilltala = byt ut (. Tilltala ”ServerX”, ”ServerY”, 1, vbTextCompare),
.TextToDisplay = byter ut (.TextToDisplay, ”ServerX”, ”ServerY”, 1, vbTextCompare)
Avsluta med
Avsluta om
Därefter
Avsluta suben
|