The statement can't occur in a Sub or Function procedure. 此错误具有以下原因和解决方案：

以下语句之一在过程中出现：Declare、Deftype、Private、Public、Option Base、Option Compare、Option Explicit、Option Private、Enum 和 Type。

从过程中删除语句。 语句可置于模块级。

有关其他信息，选择有问题的项并按 F1（在 Windows 中）或 HELP（在 Macintosh 上）。

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。