Won´t stop prompt when deleting sheet

[kharboe78]

Hi

I´m basicly using a code like this:

Sub SheetEraser()
Application.DisplayAlerts = False
Sheets("Sheet7").Delete
Application.DisplayAlerts = True
End Sub

But it still prompt when deleting the sheet.

Even as a single sub.

Almost gives up now. Hope somone can help.

 

[rhombus4]

Go into immediate window Ctrl +G
Enter
?Application.EnableEvents
If it's false enter
Application.EnableEvents = TRUE

 

[Skyybot]

Hi

I´m basicly using a code like this:

Sub SheetEraser()
Application.DisplayAlerts = False
Sheets("Sheet7").Delete
Application.DisplayAlerts = True
End Sub

But it still prompt when deleting the sheet.

Even as a single sub.

Almost gives up now. Hope somone can help.

The code that you have provided works perfectly on my machine. I know that this is lame, but, have you tried closing and reopening the workbook and running the Sub?

 

[kharboe78]

Rebooted with no luck.

Wrote the same code again and it worked. So strange.

Thanks for the time .