Galat run-time '9': Subskrip di luar jangkauan

Hai, saya baru mengenal Macro, VBA dan Kutools.

Saya menjalankan makro untuk mengekstrak teks lalu angka dalam sel terpisah. Kutools berfungsi dengan baik saat saya menjalankannya, namun saat saya mengikuti proses yang sama untuk membuat makro, saya mendapatkan pesan kesalahan:

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

Ini tampaknya di mana kesalahan terjadi dalam proses debug.

Saya telah menambahkan Kutoolsforexcel di Alat/Referensi


Sub ConvetYardsToMiles()
'
' ConvetYardsToMiles Macro
'

'
Columns("I:I").Pilih
Seleksi.Salin
Seleksi.Sisipkan Shift:=xlToRight
Application.CutCopyMode = Salah
Seleksi.Salin
Seleksi.Sisipkan Shift:=xlToRight
Kolom("J:J").Pilih
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Visible = Salah
Columns("K:K").Pilih
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Visible = Salah
ActiveWindow.SmallScroll Ke Kanan:=1
Range("L2").Pilih
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Range("L2").Pilih
Seleksi.Tujuan IsiOtomatis:=Range("L2:L832")
Range("L2:L832").Pilih
Kolom("L:L").Pilih
Pilihan.NumberFormat = "0.00 Mil"
Kolom("L:L").Pilih
Columns("L:L").EntireColumn.AutoFit
Seleksi.ColumnWidth = 14.91
Range("L1").Pilih
ActiveCell.FormulaR1C1 = "Didorong oleh Mil"
Range("L2").Pilih
ActiveWindow.SmallScroll Ke Kanan:=-1
Kolom("H:K").Pilih
Seleksi.SeluruhKolom.Tersembunyi = Benar
ActiveWindow.SmallScroll Ke Kanan:=-4
Kolom("L:L").Pilih
Dengan Seleksi
.Perataan Horizontal = xlUmum
.Perataan Vertikal = xlCenter
.Orientasi = 0
.AddIndent = Salah
.Tingkat Indentasi = 0
.ShrinkToFit = Salah
.ReadingOrder = xlKonteks
.MergeCells = Salah
Berakhir dengan
Dengan Seleksi
.Perataan Horizontal = xlTengah
.Perataan Vertikal = xlCenter
.Orientasi = 0
.AddIndent = Salah
.Tingkat Indentasi = 0
.ShrinkToFit = Salah
.ReadingOrder = xlKonteks
.MergeCells = Salah
Berakhir dengan
Baris("1:1").Pilih
Range("C1").Aktifkan
Seleksi.Font.Bold = Salah
Seleksi.Font.Bold = Benar
Dengan Pilihan.Font
.Nama = "Arial"
.Dicoret = Salah
.Superskrip = Salah
.Subskrip = Salah
.OutlineFont = Salah
.Bayangan = Salah
.Garis Bawah = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Berakhir dengan
Dengan Pilihan.Font
.Nama = "Arial"
.Ukuran = 12
.Dicoret = Salah
.Superskrip = Salah
.Subskrip = Salah
.OutlineFont = Salah
.Bayangan = Salah
.Garis Bawah = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Berakhir dengan
Dengan Seleksi
.Perataan Horizontal = xlTengah
.Perataan Vertikal = xlCenter
.WrapText = Salah
.Orientasi = 0
.AddIndent = Salah
.Tingkat Indentasi = 0
.ShrinkToFit = Salah
.ReadingOrder = xlKonteks
.MergeCells = Salah
Berakhir dengan
End Sub