View Single Post
  #3   Report Post  
vezerid
 
Posts: n/a
Default 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