Find and replace in all sheets, and replace in exact format and properties

[Maklal]

Hi, I got this code from another post.
The solution is amazing and really helps me.

I would like to know if there is a way so I can 'Find' and 'Replace the exact value'

The values I'm replacing with are hyperlinks. So I would like to replace the new values with those hyperlinks and keep them working hyperlinks.

So column A, orginal = text
Column B, Replace = hyperink

If possible, thanks in advance.

Find and Replace Multiple values in all worksheets

Sub ReplaceInAllShts()
'Average Joe

Dim Cnt As Long
Dim Replc As Variant
Dim Sht As Long

With Sheets(1)
Replc = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
End With

For Sht = 2 To Worksheets.Count
For Cnt = 1 To UBound(Replc)
Sheets(Sht).UsedRange.Replace what:=Replc(Cnt, 1), Replacement:=Replc(Cnt, 2), _
LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next Cnt
Next Sht

End Sub