Message Box ByPass 3

[Bass71]

I am writing a Macro that seeks to delete sheets that do not meet certain name criteria. However, when the Macro runs, a warning box appears with each sheet to be deleted. Is there any code I can input that will bypass this warning and make one systematic delete?

Here's the code:


While ActiveSheet.Name <> &quot;Sort&quot;
If ActiveSheet.Name <> &quot;SortRef&quot; And ActiveSheet.Name <> &quot;Sort&quot; Then
ActiveWindow.SelectedSheets.Delete
Else: ActiveSheet.Next.Select
End If
Wend


Thanks for your help..........................

 

[Hackster]

I've never written a Macro, but in several VB projects that I've done in which I make a connection to Excel, and do some spreadsheet stuff, I got rid of all of those annoying message boxes by setting DisplayAlerts = False

I use the Excel Connection object to issue DisplayAlerts. I'm not sure what Excel object supports this, but it shouldn't be too difficult to figure out. I hope this helps.

 

[Niv3k]

Before you run your loop, add this line of code:

Application.DisplayAlerts = False

and after your loop, set it to true...

 

[Niv3k]

Hackster, why do you always hit &quot;Submit&quot; before me?