Excel Keeps crashing on worksheet delete

[FJAY]

Excel seems to crash when I try to delete worksheets. The procedure seems to be working in previous release of my tool.
Public Sub delete_worksheet()

Dim shtDelWorkSheet, mySheets

mySheets = Array("A", "B", "C" "D", "E")

For Each shtDelWorkSheet In mySheets
Sheets(shtDelWorkSheet).Visible = False
Application.DisplayAlerts = False
Sheets(shtDelWorkSheet).Delete
Application.DisplayAlerts = True
Next
End Sub

Please what can I do to prevent excel from crashing and giving me the send error report. I've downloaded and installed the latest service pack. Thanks.

 

[Zygor]

mySheets = Array("A", "B", "C" "D", "E")

should be
mySheets = Array("A", "B", "C", "D", "E")

You're missing a comma after the "C"

Aside from that, is there an error? Can you step through the code? What line causes it to crash?