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]

Because the code cycles it off and then back on.

OFF

Application.DisplayAlerts = False

ON

Application.DisplayAlerts = True

 

[peterbata]

Thank you so much for the incredibly fast response Jeffrey


My apologies. I was wrong.

The instructor steps through this code when receiving the warning prompt. I do the same and no result.

Sub DeleteSpecificSheets()


Worksheets("sheet7").Delete


End Sub

 

[peterbata]

By the way I am learning along this tutorial. https://www.youtube.com/watch?v=M3OE7Z62oGM&index=6&list=PLNIs-AWhQzckr8Dgmgb3akx_gFMnpxTN5

It seemed to have worked just fine for the instructor at point 24:38 +/- of the video tutorial. Approx.

Thank you

Peter

 

[jeffreybrown]

Hi Peter,

If you do not want to get a warning prompt, then you must do...

Sub DeleteSpecificSheets()
    Application.DisplayAlerts = False
        Worksheets("Sheet2").Delete
    Application.DisplayAlerts = True
End Sub

I did not watch the youtube link, but not sure it's necessary

 

[peterbata]

I do want the warning prompt

 

[jeffreybrown]

I do want the warning prompt

If you do not want the warning prompt then you need those two lines.

False at the beginning of the code and True at the end

 

[peterbata]

If you do not want the warning prompt then you need those two lines.

False at the beginning of the code and True at the end

I'm sorry that we seem to be going around in circles here. I DO want to see the alerts. I was simply inquiring as to why I was NOT seeing the prompt at all.

 

[jeffreybrown]

I was simply inquiring as to why I was NOT seeing the prompt at all.

I simply do not know why you are not seeing the prompt as I don't see your sheet and I don't know what you are actually running, when, or how.

If you want to see the alerts, then you would use...

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

If you DO NOT want to see the alerts, then you would use...

Sub DeleteSpecificSheets()
    Application.DisplayAlerts = False
        Worksheets("Sheet2").Delete
    Application.DisplayAlerts = True
End Sub

Maybe it's possible the workbook you are in has the alerts turned off so they need to be reset so the code works as it should.

Open up the VBE (Alt + F11)
Open up the Immediate window (Ctrl + G)
Now in the Immediate window paste >> Application.DisplayAlerts = True >> select enter

Try to run code #1 above and make sure you change the Sheet name to what you are actually working with.

 

[peterbata]

I really appreciate your time and assistance Jeffrey.

I suppose that I should have have provided more info on my environment in my original post. My bad

Using Microsoft Excel 2016 in Windows 7 Pro
I created a new worksheet. Sheets 1,2,3. All empty, absolutely no data.

I proceed to: Open up the VBE (Alt + F11)
Followed by: Open up the Immediate window (Ctrl + G)
I then went into the: Immediate window paste >> Application.DisplayAlerts = True >> select enter

Then ran the code #1 as you said.

Not sure if you will be able to see this screenshot.

I'm baffled!