vba - Excel 2016 VBA 替换错误不一致失败

Question

我正在尝试在 Excel 2016 32 位的 Auto_Open 函数中使用 Worksheet.Cells.Replace 方法遍历工作表并删除文件位置前缀。

ws.Cells.Replace What:="'*:\*addin_name.xla*'!", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
        SearchFormat:=False, ReplaceFormat:=False

上面的行偶尔会导致运行时错误“13”：类型不匹配。其他时候，宏会顺利运行。

有没有人经历过这种行为？有没有好的解决方案？如果没有，如果导致错误，我如何构造代码以再次尝试 Replace 方法 4 次？