Application.DisplayAlerts = False
Application.ActiveWorkbook.Sheets(3).Delete
Application.DisplayAlerts = True

HTH
Paul
--------------------------------------------------------------------------------------------------------------
Be advised to back up your WorkBook before attempting to make changes.
--------------------------------------------------------------------------------------------------------------

How do I delete a worksheet without getting the confirmation message:
"Are you sure you wish to delete this worksheet?"

Application.ActiveWorkbook.Sheets(3).Delete


Lance