Question : bypass delete verification

I want to delete alot of worksheets in a macro, and need to bypass the prompt
"Data may exist in te sheets(s) selected for deletion. To permanently delete the data, press Delete."

  For I = 1 To 96
        Sheets("Data" & I).Select
        ActiveWindow.SelectedSheets.Delete
    Next I

Answer : bypass delete verification

Try adding:

Application.displayalerts = False

before the loop

For safety, I would add this after the loop:

Application.displayalerts = True