运行时错误“9”：下标超出范围

嗨，我是 Macros、VBA 和 Kutools 的新手。

我正在运行一个宏来提取文本，然后在单独的单元格中提取数字。 Kutools 在我运行时工作正常，但是当我按照相同的过程创建宏时，我收到一条错误消息：

Windows("KutoolsHelper.xlam").Visible = True

这似乎是调试中发生错误的地方。

我在工具/参考中添加了 Kutoolsforexcel


子 ConvetYardsToMiles()
'
'ConvetYardsToMiles 宏
'

'
列（“我：我”）。选择
选择.复制
选择.插入 Shift:=xlToRight
Application.CutCopyMode = False
选择.复制
选择.插入 Shift:=xlToRight
列（“J：J”）。选择
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Visible = 假
列（“K：K”）。选择
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Visible = 假
ActiveWindow.SmallScroll ToRight:=1
范围（“L2”）。选择
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
范围（“L2”）。选择
选择.自动填充目标：=范围（“L2：L832”）
范围（“L2：L832”）。选择
列（“L：L”）。选择
Selection.NumberFormat = "0.00 英里"
列（“L：L”）。选择
列（“L：L”）.EntireColumn.AutoFit
选择.ColumnWidth = 14.91
范围（“L1”）。选择
ActiveCell.FormulaR1C1 = "行驶里程"
范围（“L2”）。选择
ActiveWindow.SmallScroll ToRight:=-1
列（“H：K”）。选择
选择.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=-4
列（“L：L”）。选择
与选择
.Horizo​​ntalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent =假
.缩进级别 = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
结束
与选择
.Horizo​​ntalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent =假
.缩进级别 = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
结束
行（“1：1”）。选择
范围（“C1”）。激活
选择.Font.Bold = False
选择.Font.Bold = True
使用 Selection.Font
.Name = "宋体"
.删除线=假
.上标=假
.下标=假
.OutlineFont = 假
.Shadow = 假
.下划线 = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
结束
使用 Selection.Font
.Name = "宋体"
.大小 = 12
.删除线=假
.上标=假
.下标=假
.OutlineFont = 假
.Shadow = 假
.下划线 = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
结束
与选择
.Horizo​​ntalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent =假
.缩进级别 = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
结束
END SUB