Sub MyMacro( ) Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = TrueEnd Sub