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