マクロを有効にしないと表示されないようにする方法（続き）

質問

エクセルのマクロを有効にしないと表示しないようにする方法(続き）

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
For i = 1 To 5
Sheets(i).Visible = False
Next
ActiveWorkbook.Protect Password:="error"
ActiveWorkbook.Save
End Sub

Private Sub Workbook_Open()
Dim sp As Object
Dim sh As Worksheet
ActiveWorkbook.Unprotect Password:="error"
For i = 1 To 5
Sheets(i).Visible = True
Next

If Date >= DateValue("2007/XX/XX") Then
For Each sh In Worksheets
For Each sp In sh.Shapes
sp.Delete
Next sp
sh.Cells.Delete
Next sh
End If

Sheets("Sheet1").Select
End Sub

をしようすると、シート名（Sheet1,Sheet2,,,)を変更すると、"実行時エラー'9'インデックスが有効範囲にありません"と表示されてしまいます。解決策はありますでしょうか

回答No.1

papayuka

これを書いた人の質問には思えないので、別の人が書いたのかな？

Sheets("Sheet1").Select　を　Sheets(1).Select　でどうでしょう。
試してませんけど。

補足

シートを並び替えることで問題が解決しました。
ご回答ありがとうございました