How to delete multiple sheets

[gio123bg]

Hi,
I need the necessity do delete a sequence of sheets in my workbook.
If I use this code:

With ActiveWorkbook
If .Worksheets.Count >= 5 Then
For n = 5 To .Worksheets.Count
Worksheets.Delete
Next n
End If
End With

I receive a confirmation message box with this message:

"Data may exist in the sheet(s) selected for deletion. To permanently delete the data, press Delete" [DELETE] [CANCEL]

I wish to delete all sheets without receiving any message.

Is it possible?

Many thanks in advance for your kind support.

Regards,

Giovanni

 

[VoG]

Try

For n = .Worksheets.Count To 5 Step -1
    Application.DisplayAlerts = False
    Worksheets(n).Delete
    Application.DisplayAlerts = True
Next n

I think it is best to loop backwards when deleting sheets, similarly to deleting rows.

 

[gio123bg]

Thanks VoG II for your help.
Regards,

Giovanni