Delete question pop window 1

[coltaalex]

Hi all

I have a file with 10 sheets in it.
I want to delete 4 of them, so i recorded a macro with selects the sheets ( which i want to be deleted), but when i run it, a warning message comes up asking if i want truly to delete the sheet, how can i take that warning window out ?
Here what i have now :

Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete



Thank you guys

 

[SkipVought]

Sheets("Sheet1").Select
Application.DisplayAlerts = False
Sheets("Sheet1").Delete
Application.DisplayAlerts = True


Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]