我的excel中，各表超鏈接路徑中出現C:\Users\經營部\AppData\Roaming\Microsoft\Excel\怎么去除，求救!

我的excel中，各表超鏈接路徑中出現C:\Users\經營部\AppData\Roaming\Microsoft\Excel\，上百張表沒法一個個重新更改，有沒有方法去除。我在百度搜了個VBA，但是刪不掉。我是win7系統
Sub clearurl()
y = 20 '行數
i = 1 '開始行
lu = "B" '假如在B列
While i < y
tempa = "C:\Users\Administrator\Desktop\" '要刪除的字符
Range(lu & i).Select
On Error Resume Next
URL = Selection.Hyperlinks(1).Address
te = Replace(URL, tempa, "")
On Error Resume Next
Selection.Hyperlinks(1).Address = te
i = i + 1

Wend
End Sub