[VBA]EXCEL表格，运行VBA报错：运行时错误‘9’ 下标越界

代码目的：

点击工作表，自动实现表格数据清空

问题：

遇到报错提示“下标越界”

错误及解决过程：

点击“钢管重量排序”工作表，弹出窗口报错。检查excel文件发现，标签名称“钢管重量排序 ”末尾存在空格，VBA代码与标签名不一致，导致VBA代码指向工作表对象不存在，报错下标越界。

思考：

1.VBA报错下标越界，其中一种报错原因为 VBA代码指向对象不存在，需要仔细检查指向对象的名称及范围是否正确一致。

2.Excel复制“钢管重量排序”工作表后，副本“钢管重量排序 (2)”，"("前会自动生成空格。

具体报错窗口如下：

代码如下：

Private Sub Worksheet_Activate()

Sheets("钢管重量排序").Cells.Select
    Selection.ClearContents
Sheets("钢管重量排序").Cells(1, 1).Select

MsgBox ("重量排序已更新")

End Sub