[Solved] changing multiple hyperlinks @ once??

Sub SwapText()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Dec 03")  'change this "Dec 03"  to your [i] worksheet [/i] name
    HyperlinkChanger ws, "03", "04"
End Sub
    
    
End Sub




  
Sub HyperlinkChanger(ws As Worksheet, strOld As String, strNew As String)
    Dim hLink As Hyperlink, wsF As WorksheetFunction
  
    Set wsF = Application.WorksheetFunction
    For Each hLink In ws.Hyperlinks
        With hLink
            .Range = wsF.Substitute(.Range, strOld, strNew)
            .Address = ""
            .SubAddress = wsF.Substitute(.SubAddress, strOld, strNew)
        End With
    Next hLink
      
End Sub