"Delete Sheets" Error Message in Excel 1

[Goska]

I have an Excel workbook being run by VBA. I am deleting some sheets that will not be used based on user button clicks to cut down on memory usage, since my program is being designed to run on a laptop. I can delete the sheets without a problem, but every time I run the program, an error message comes up asking if I am sure I want to delete these sheets. Is there a way to code into VBA to either automatically click "OK" or to disable this error box temporarily, then turn it back on?

 

[jonscott8]

lVar = Application.DisplayAlerts
Application.DisplayAlerts = False
Set oSheet = Application.ActiveWorkbook.Sheets("MySheet&quot
oSheet.Delete
Application.DisplayAlerts = lVar
Jon Hawkins

 

[Goska]

Thanks. It worked perfectly.