Sub FindReplaceHLinks(sFind As String, sReplace As String, _
Optional lStart As Long = 1, Optional lCount As Long = -1)
Dim rCell As Range
Dim hl As Hyperlink
For Each rCell In ActiveSheet.UsedRange.Cells
If rCell.Hyperlinks.Count > 0 Then
For [...]
Read More...
Read the complete post at http://www.dailydoseofexcel.com/archives/2010/05/10/find-and-replace-hyperlinks/
Posted
May 10 2010, 04:55 PM
by
Daily Dose of Excel