Replace multiple hyperlinks

tried that, didn't make difference, this is what I have:

Sub ChangeHyperlinks()
Dim h As hyperlink
Dim oldDr As String, newDr As String

oldDr = "T:"
newDr = "https://xxxxxx.xxxxxxx.com/sites/xxxx/Design/Shared%20Documents/xxxxxx/"
For Each h In Sheets("Sheet1").Hyperlinks
h.Address = Replace(h.Address, oldDr, newDr)
Next h
End Sub

The original code posted works, so the replace function might need tweaking? thanks again