Gwall amser rhedeg '9': Tanysgrifiad allan o'r ystod

Helo, dwi'n newydd i Macros, VBA a Kutools.

Rwy'n rhedeg macro i echdynnu testun yna rhifau mewn celloedd ar wahân. Mae'r Kutools yn gweithio'n iawn pan fyddaf yn ei redeg, fodd bynnag pan fyddaf yn dilyn yr un broses i greu macro, rwy'n cael neges gwall:

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

Mae'n ymddangos mai dyma lle mae'r gwall yn digwydd yn y dadfygio.

Rwyf wedi ychwanegu Kutoolsforexcel yn Offer / Cyfeirnod


IsIerdydd ConvetToMiles()
'
' ConvetIardsToMiles Macro
'

'
Colofnau ("I:I"). Dewiswch
Dewis.Copy
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = Anghywir
Dewis.Copy
Selection.Insert Shift:=xlToRight
Colofnau ("J:J"). Dewiswch
Windows("KutoolsHelper.xlam").Visible = Gwir
ActiveWindow.Visible = Gau
Colofnau ("K:K"). Dewiswch
Windows("KutoolsHelper.xlam").Visible = Gwir
ActiveWindow.Visible = Gau
ActiveWindow.SmallScroll ToRight:=1
Ystod ("L2"). Dewiswch
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Ystod ("L2"). Dewiswch
Dewis.AutoFill Cyrchfan:=Ystod ("L2:L832")
Ystod ("L2:L832"). Dewiswch
Colofnau ("L:L"). Dewiswch
Selection.NumberFormat = "0.00 Milltir"
Colofnau ("L:L"). Dewiswch
Colofnau ("L:L").EntireColumn.AutoFit
Selection.ColumnWidth = 14.91
Ystod ("L1"). Dewiswch
ActiveCell.FormulaR1C1 = "Milltiroedd yn cael eu gyrru"
Ystod ("L2"). Dewiswch
ActiveWindow.SmallScroll ToRight:=-1
Colofnau ("H:K"). Dewiswch
Selection.EntireColumn.Hidden = Gwir
ActiveWindow.SmallScroll ToRight:=-4
Colofnau ("L:L"). Dewiswch
Gyda Detholiad
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.Cyfeiriadedd = 0
.AddIndent = Gau
.IndentLevel = 0
.ShrinkToFit = Gau
.ReadingOrder = xlContext
.MergeCells = Gau
Diwedd Gyda
Gyda Detholiad
.HorizontalAlign = xlCenter
.VerticalAlignment = xlCenter
.Cyfeiriadedd = 0
.AddIndent = Gau
.IndentLevel = 0
.ShrinkToFit = Gau
.ReadingOrder = xlContext
.MergeCells = Gau
Diwedd Gyda
Rhesi ("1:1"). Dewiswch
Ystod ("C1"). Ysgogi
Selection.Font.Bold = Gau
Selection.Font.Bold = Gwir
Gyda Selection.Font
.Name = "Arial"
.Strikethrough = Gau
.Superscript = Gau
.Subscript = Gau
.OutlineFont = Gau
.Cysgod = Gau
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Diwedd Gyda
Gyda Selection.Font
.Name = "Arial"
.Maint = 12
.Strikethrough = Gau
.Superscript = Gau
.Subscript = Gau
.OutlineFont = Gau
.Cysgod = Gau
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Diwedd Gyda
Gyda Detholiad
.HorizontalAlign = xlCenter
.VerticalAlignment = xlCenter
.WrapText = Gau
.Cyfeiriadedd = 0
.AddIndent = Gau
.IndentLevel = 0
.ShrinkToFit = Gau
.ReadingOrder = xlContext
.MergeCells = Gau
Diwedd Gyda
Is-End