運行時錯誤“下標超出范圍”

Question

我編寫了以下腳本，我的運行時錯誤下標超出了范圍。 任何人都可以幫我這個嗎？（msgbox用作調試器）
提前致謝。

 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

在嘗試索引到集合之前獲取工作表的數量/最后一個索引。