Can i change multiple hyperlinks at once
The following VBA function will replace the drive names as you desire
after you change the words inside the quotes to the desired ones.
Sub ChangeHyperlinks()
Dim h As Hyperlink
Dim oldDr As String, newDr As String
oldDr = "http"
newDr = "ftp"
For Each h In Sheets("Sheet1").Hyperlinks
h.Address = newDr & Mid(h.Address, Len(oldDr) + 1, Len(h.Address))
Next h
End Sub
HTH
Kostis Vezerides
|