DisplayAlerts

[peterbata]

Hello and thank you for taking my inquiry.

I am learning about VBA code and am wondering why when stepping through these lines of code I am not presented with a warning prompt. It executes successfully but no warning. The sheet is deleted.

Sub DeleteSpecificSheets()


Application.DisplayAlerts = False
Worksheets("sheet8").Delete
Application.DisplayAlerts = True


End Sub

 

[jeffreybrown]

I'm baffled!

Yes, I see your image, and what I see is Sheet3 is deleted from the left side of the screen. What is baffling you?

Did you get the alert for you are about to delete a sheet?

 

[peterbata]

Yes, I see your image, and what I see is Sheet3 is deleted from the left side of the screen. What is baffling you?

Did you get the alert for you are about to delete a sheet?

I did NOT get the alert.

 

[jeffreybrown]

I'm baffled!

Well that makes two of us.

I created a new worksheet. Sheets 1,2,3. All empty, absolutely no data.

Does this mean 3 new sheets within the current workbook or an entirely new workbook and the same strange behavior exists?

 

[peterbata]

Well that makes two of us.



Does this mean 3 new sheets within the current workbook or an entirely new workbook and the same strange behavior exists?

I am experiencing the same behavior with existing and new worksheets. Regardless of what I try, the result is the same.

I thought that perhaps it might be a global setting in Excel, but I wouldn't know ehere to start looking. Thanks for all of your time and effort. Back to the drawing board. One thing that I will do is move to another PC and duplicate the process.

 

[Fishboy]

I am experiencing the same behavior with existing and new worksheets. Regardless of what I try, the result is the same.

I thought that perhaps it might be a global setting in Excel, but I wouldn't know ehere to start looking. Thanks for all of your time and effort. Back to the drawing board. One thing that I will do is move to another PC and duplicate the process.

I suspect it will be because alerts had already been disabled and not turned back on.

Try running this code by itself first:

Sub TurnAlertsOn()
Application.EnableAlerts = True
End Sub

Then try your code:

Sub DeleteSpecificSheets()
Worksheets("sheet7").Delete
End Sub

 

[jeffreybrown]

One thing that I will do is move to another PC and duplicate the process.

That will surely be a good test as I have no idea what is preventing this from working.

 

[jeffreybrown]

I suspect it will be because alerts had already been disabled and not turned back on.

Try running this code by itself first:

Sub TurnAlertsOn()
Application.EnableAlerts = True
End Sub

Thanks Fishboy, but is it possible you meant

Application.EnableEvents = True

You can do this in the Immediate window also just like before

 

[peterbata]

Thanks for chiming in Fishboy. Really appreciate it. Did exactly what you suggested in a new worksheet. Exact same result. I see no pop-up alert at all. The sheet is deleted outright. Here is what I am going to do right now. Log in remotely to one of my clients PC. They are running Excel 2013. I will give that a go and post back.

 

[Stiuart_W]

Try running this code by itself first:

Sub TurnAlertsOn()
Application.EnableAlerts = True
End Sub

Thanks Fishboy, but is it possible you meant

Application.EnableEvents = True

You can do this in the Immediate window also just like before

No. I am sure he meant EnableAlerts

EnableEvents means things like selection change, calculate, activate window

EnableAlerts means the alerts like "Do you want to save before you Exit?"

 

[peterbata]

Yes Jeffrey I caught that too. Used "Application.EnableEvents = True" in the Immediate console as you suggested. No change unfortunately!