Sub xDeleteListSheet()

Application.DisplayAlerts = False
Sheets("List").Delete
Application.DisplayAlerts = True

End Sub