excel - Excel 2010 ハイパーリンクの検索と置換

Question

ハイパーリンクを置き換えるときに機能しないように見える次のコードがあります。

Sub ReplacePartHyperlinkAddress()
Dim hLink As Hyperlink
Dim wSheet As Worksheet

For Each wSheet In Worksheets
    For Each hLink In wSheet.Hyperlinks
        hLink.Address = Replace(hLink.Address, "File:///C:\Users/username/AppData/roaming", "O:\Brisbane\Brisbane_Groups\Offices")
    Next hLink
Next wSheet
End Sub

誰かがこれを手伝ってくれませんか。また、Excelで間違った方法で実行しようとしている可能性があります。