WorkSheet.Delete

[Pokey*]

I've run into a problem about deleting sheets. I wrote
a "work around" whereby the unwanted sheet is moved to a
new workbook and the new workbook is closed without
saving it, but I just think there has to be a better way!

If I use VB to delete a worksheet, I do not know how to
prevent the system from asking to confirm delete. This
same message appears when you manually delete, by the
way. Does anyone know how to answer (or prevent from
showing) that message box using VB?

Thanks!

 

[Ron de Bruin]

Hi Pokey

Try this

Sub test()
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub

 

[Chip Pearson]

Use Application.DisplayAlerts = False to prevent the message box.
E.g.,

Application.DisplayAlerts = False
' delete the sheet
Application.DisplayAlerts = True


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Pokey*]

AWWESOME, THANKS!!!

-----Original Message-----
Hi Pokey

Try this

Sub test()
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl





.

 

[Pokey*]

AWWESOME, THANKS!!!

-----Original Message-----
Use Application.DisplayAlerts = False to prevent the message box.
E.g.,

Application.DisplayAlerts = False
' delete the sheet
Application.DisplayAlerts = True


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com






.