我运行代码时出现Excel VBA运行时错误代码438

Question

当我在Office 365中运行此代码时，它工作得很好，但是当我在Excel 2007或excel 2010中运行该代码时，它会显示运行时错误438。

请帮助。