Application VisualBasic Script

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