Napaka med izvajanjem '9': indeks je izven obsega

Pozdravljeni, nov sem v Macros, VBA in Kutools.

Izvajam makro za ekstrahiranje besedila in nato številk v ločenih celicah. Kutools deluje dobro, ko ga zaženem, ko pa sledim istemu postopku za ustvarjanje makra, dobim sporočilo o napaki:

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

Zdi se, da je tukaj prišlo do napake pri odpravljanju napak.

Dodal sem Kutoolsforexcel v Orodja/Referenca


Sub ConvetYardsToMiles()
'
Makro ConvetYardsToMiles
'

'
Stolpci ("I:I").Izberi
Izbor. Kopija
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = Napačno
Izbor. Kopija
Selection.Insert Shift:=xlToRight
Stolpci ("J:J").Izberi
Windows("KutoolsHelper.xlam"). Visible = True
ActiveWindow.Visible = False
Stolpci("K:K").Izberi
Windows("KutoolsHelper.xlam"). Visible = True
ActiveWindow.Visible = False
ActiveWindow.SmallScroll ToRight:=1
Obseg("L2").Izberi
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Obseg("L2").Izberi
Selection.AutoFill Destination:=Range("L2:L832")
Obseg("L2:L832").Izberi
Stolpci ("L:L").Izberi
Selection.NumberFormat = "0.00 milj"
Stolpci ("L:L").Izberi
Columns("L:L").EntireColumn.AutoFit
Selection.ColumnWidth = 14.91
Obseg("L1").Izberi
ActiveCell.FormulaR1C1 = "Prevožene milje"
Obseg("L2").Izberi
ActiveWindow.SmallScroll ToRight:=-1
Stolpci ("H:K").Izberi
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=-4
Stolpci ("L:L").Izberi
Z izborom
.HorizontalAlignment = xlSplošno
.VerticalAlignment = xlCenter
.Orientacija = 0
.AddIndent = False
.Raven zamika = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Končaj s
Z izborom
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientacija = 0
.AddIndent = False
.Raven zamika = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Končaj s
Vrstice("1:1").Izberite
Obseg ("C1"). Aktiviraj
Selection.Font.Bold = False
Selection.Font.Bold = True
Z Selection.Font
.Name = "Arial"
.Prečrtano = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Senca = False
.Podčrtaj = xlPodčrtaniStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Končaj s
Z Selection.Font
.Name = "Arial"
.Velikost = 12
.Prečrtano = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Senca = False
.Podčrtaj = xlPodčrtaniStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Končaj s
Z izborom
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientacija = 0
.AddIndent = False
.Raven zamika = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Končaj s
End Sub