Auto Answer Prompt

[Bench]

Hi,

I've written a code that creates several charts in one go, first though it checks whether these already exist, if they do it deletes them.

This works fine, however at each sheet i have to confirm deletion via the microsoft prompt:

"Data May Exist in the Sheet(s) selected for Deletion. To Permanently delete the Data press Delete: Delete/Cancel"

Is there a bit of code i can add, to automatically choose Delete and stop it pausing the Sub ???

Please Help

Thanks

 

[RoryA]

Use:

 Application.DisplayAlerts = False
' code to delete
 Application.DisplayAlerts = True

to automatically select the default response.

 

[Bench]

Use:

 Application.DisplayAlerts = False
' code to delete
 Application.DisplayAlerts = True

to automatically select the default response.

Hey, Thanks for the speedy reply, its not working although i imagine that may be because i've put it in the wrong place. I tried right at the start of the code and as below. Where should it go? Thanks

For Each chart_name In ThisWorkbook.Charts
If chart_name.Name = "2.Completed Cases YTD" Then
chart_name.Delete
Application.DisplayAlerts = True
End If

Next

 

[RoryA]

That should be fine assuming you are only deleting one chart, and assuming this is all one procedure. Are you still getting the prompt?

 

[Bench]

That should be fine assuming you are only deleting one chart, and assuming this is all one procedure. Are you still getting the prompt?

It's ok, i've realised my error, should be

For Each chart_name In ThisWorkbook.Charts
If chart_name.Name = "2.Completed Cases YTD" Then
Application.DisplayAlerts = False
chart_name.Delete
Application.DisplayAlerts = True
End If
Next

I was missing out the False bit, thanks for your help