Deletes Active Worksheet (without a warning being displayed to User): Return to List

' Deletes worksheet without warning and without first saving it!

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

See also:
Activate Worksheet by Name
Activates the First Worksheet
Activates Last Worksheet
Adding a Worksheet
Copying one worksheet to another
Counting and Selecting Worksheets
Moving worksheet to particular location (i.e., order)
Naming the active worksheet