Evaluate函数运行时错误438

在之前在Excel VBA中用evaluate()求值，一直用得很好，但今天却出现“运行时错误438”。调试了很久，发现evaluate(4)没错，evaluate(3)就出错了。难道3代表了某个特殊的对象，比如单元格之类的？用evaluate(3).name一看，原来是我的一个二维码对象，它的index正好排到3了。

怎么解决呢？找了个简单方法，在运行evaluate()时，不激活含有对象的工作表，就OK了。