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

我已经写了下面的脚本，我得到的运行时错误下标超出范围。 任何人都可以帮助我吗？（msgbox被用作debugging器）
提前致谢。

Sub newbook() Dim bk As Workbook, sht As Worksheet MsgBox ("variables created") Set bk = Workbooks.Add MsgBox ("book is set") With bk .Title = "NewBook" .SaveAs Filename:="NewBook.xls" End With MsgBox ("Book is created") Set sht = bk.Sheets.Add MsgBox ("sheet is set") bk.Sheets(1).Name = "Hello 1" bk.Sheets(2).Name = "Hello 2" bk.Sheets(3).Name = "Hello 3" bk.Sheets(4).Name = "Hello 4" MsgBox ("everything is completed") End Sub 

Answer 1

使用

 bk.Sheets.Count 

获取表单的数字/最后一个索引，然后尝试索引到集合中。