Ben

With a macro:

Sub BenSheetDelete()
Dim mySht As Worksheet
Application.DisplayAlerts = False
For Each mySht In ActiveWorkbook.Worksheets
If mySht.Name < "Data Input" Then mySht.Delete
Next mySht
Application.DisplayAlerts = True
End Sub

Manually:
Ctrl-Click the tabs that you want to get rid of then right click and select
delete.

HTH,
Bernie
MS Excel MVP

"Ben H" <Ben wrote in message
...
Hi all. Basically, I need to be able to delete all hte sheets in a open
workbook except for the sheet called "Data Input". The rest of the sheets
will have different names, but most likely "Data Output" (orginal, isn't
it?)

Any ideas would greatly help.

Thanks