Delete a worksheet

To delete a worksheet titled "Data"

Sub DeleteSheet()
Application.DisplayAlerts = False
  'Replace "Data" with your sheet name
Sheets("Data").Delete
Application.DisplayAlerts = True
End Sub