I need to adust the macro to run over multiple sheets - it finds and replaces hyperlinks

I have a cool macro that finds and replaces hyperlinks especially useful when hit by the C:\@GMT- bug


But I have been effected by the bug hitting all the sheets so instead of having to select each sheet and running this useful macro can someone post the changes to get it to work over all the sheets in the book ?

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 Each hl In rCell.Hyperlinks
hl.Address = Replace(hl.Address, sFind, sReplace, lStart, lCount, vbTextCompare)
Next hl
End If
Next rCell
End Sub

Sub Doit()

FindReplaceHLinks "find what to replace here", "replace it with here"

End Sub

Hey Robert thanks for the swift reply,


this is very simular to what I've been trying , hmmm. Doesnt seem to work

I just ended up doing a record macro, and selecting the sheets and running the macro.