Replacing Hyperlinks

I’m needing some help writing this macro. I have a macro written to replace an existing hyperlink with one that I desire. The problem I have is each cell has a different link, is there a way I can get the macro to copy what is in the cell into the link.

For example the macro written bellow is for a cell called HC001. The pdf for that name is located on a driver called “fs3\HC001.pdf.” The cell bellow that is HC002, the pdf for that name is located at “fs3\HC002.pdf.” So I was wondering if there is a way for the macro to fill in that part of the hyperlink?

Dim hLink As Hyperlink
Dim wSheet As Worksheet
     
    For Each wSheet In Worksheets
        For Each hLink In wSheet.Hyperlinks
            hLink.Address = Replace(hLink.Address, "\\fs3\HC001.pdf", "")
        Next hLink
    Next wSheet

End Sub