Referencing cells in VBA

Hi all

I'm having a brain fog moment -

I have a workbook that contains many links to a customer portal

I want to be able to update the portal ID across all links within the workbook based on the value added to a specific cell

The master copy of the workbook has my portal ID (being the referenced ""143655455"") - my aim is to be able to just make a copy of the workbook for a new customer and replace my ID within all links with their ID easily

At the moment I have this but I know its not correct - can someone help - its the "Range(F5)" section - I need to reference the value that is in Cell F5

Public Sub Change_Hyperlinks()
    Dim ws As Worksheet
    Dim hlink As Hyperlink
    
    For Each ws In ActiveWorkbook.Worksheets
        For Each hlink In ws.Hyperlinks
        hlink.Address = Replace(hlink.Address, "143655455", Range(f5), Compare:=vbTextCompare)
        Next
    Next
        
End Sub

Also, happy to hear if someone has a better work around for this process


Thanks
Vicki