If you don't want the warning message add

Application.DisplayAlerts = False

activewindow.selectedsheets.delete

Application.DisplayAlerts = True


Gord Dibben MS Excel MVP


On Thu, 26 Nov 2009 16:22:03 -0800, FSt1
wrote:

hi
short answer no.
but you can record a macro that does that and attach the macro to a custom
icon.
sub delsheet()

end sub

regards
FSt1

"Mary Ann" wrote:

Is there a shortcut key to delete a worksheet?
I use Excel 2003 and 2007