うまくいかない。。。

もし、A5が総計だったらシートを削除して
そうでなければhiduke関数を実行して
iがSheetCountになるまで実行したいのだが、、、

ActiveSheets.Deleteでシートを削除した分
iのカウントが不足してしまってエラーがおきる。

　　For i = 2 To SheetCount
Sheets(i).Select
If Range("A5") = "総計" Then
ActiveSheets.Delete
Range("G3") = "gets!!"
Range("H3") = i
Range("I3") = SheetCount
Else
Range("H3") = i
Range("I3") = SheetCount
Call hiduke
End If
Next i