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*" wrote in message ...
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!