间歇性excel 2013 vba错误438

我在2010年广泛使用的Excelmacros中遇到错误。 在Excel 2013中,我每隔一段时间运行一次macros,就会得到一个438错误(对象不支持这个属性或方法)。

如果我停止在“WITH”语句的代码,然后手动强制执行SELECT语句第二次我没有得到错误。

有没有人有什么可能导致这个线索?

ActiveSheet.Shapes("Drop Down 28").Select With Selection .ListFillRange = "Constants!$J$2:$J$13" .LinkedCell = "$E$2" .DropDownLines = 12 .Display3DShading = False End With 

提前感谢您的任何想法。

 With ActiveSheet.DropDowns("Drop Down 28") .ListFillRange = "A1:A10" .LinkedCell = "A12" .DropDownLines = 10 .Display3DShading = False End With