April 2006
Beginner
1114 pages
98h 16m
English
range.Hyperlinks
Returns a Hyperlinks collection that represents the hyperlinks in the specified range. The following code changes the address of hyperlinks in the specified range that have the address "\\koala\bear":
Dim r As Range
Dim h As Hyperlink
Set r = ActiveSheet.Range("D1:D7")
For Each h In r.Hyperlinks
If h.Address = "\\koala\bear" Then
h.Address = "\\wombat\mojo"
End If
NextRead now
Unlock full access