我的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