运行Excel宏时出现错误9，通常表示下标越界，即程序试图访问一个不存在的数组或列表元素。以下是一些可能的原因和解决方法：

工作簿或工作表不存在

确保工作簿路径正确，并且工作簿确实存在。

检查工作表名称是否正确，确保没有拼写错误或超出工作表个数限制。

数组或列表维度不正确

检查数组或列表是否已正确声明和初始化。

确保访问的数组或列表下标在有效范围内。

宏代码中的错误

查看宏代码，确保所有引用的工作表、范围或数组下标都是正确的。

使用“Debug.Print”命令打印执行堆栈，以确定错误发生的位置。

Excel版本问题

如果使用的是较旧版本的Excel，尝试更新到最新版本，或者重置Excel应用设置。

宏冲突

检查是否有其他宏与当前宏冲突，特别是快捷键冲突。

系统问题

尝试关闭Excel后重新开机，或者重新安装Excel。

自定义宏

关闭所有自定义宏，检查是否有宏引用了不存在的对象或单元格。

```vba

Sub CheckArray（）

Dim arr（） As String

ReDim arr（1 To 3） ' 定义一个3个元素的数组

arr（1） = "Hello"

arr（2） = "World"

arr（3） = "Excel"

' 尝试访问第4个元素，这将导致下标越界

' arr（4） = "Error" ' 取消注释此行以测试错误

End Sub

```

在这个示例中，数组`arr`被定义为包含3个元素，但如果尝试访问第4个元素（`arr（4）`），将会导致下标越界错误。通过注释或删除该行，可以避免错误。

通过以上方法，您应该能够找到并修复导致下标越界错误的原因。如果问题仍然存在，请提供更多的宏代码和上下文信息，以便进一步诊断问题。