Hi Low,

This code will look at every one of your worksheets and delete them if they
are blank.  Of course, the IF criteria can be amanded to look for something
else if you like

HTH

Simon

------------------------------------------------------------------------------
-----

Sub wkbk_cleanup()
Dim wkbk As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each wkbk In ActiveWorkbook.Worksheets

   'Select the worksheet
       wkbk.Select

   'Look for the last used cell.
       ActiveCell.SpecialCells(xlLastCell).Select

   'If its A1 then the sheet is blank and can be deleted.
   'Amend the test as required.

       If ActiveCell.Address = "$A$1" Then
       wkbk.Delete
       End If

Next wkbk

End Sub

------------------------------------------------------------------------------
-------

Mr. Low

Save you work and back it up.  Select the first one you want to delete, get
over to the last one hold down "shift" hit "enter".  All those sheets should
be selected (it will say "grouped" after your file name at the top).  Right
click and select "delete".  Make sure you have ONLY the ones you want to
delete selected.  If by some chance you deleted something not intended, close
your wok without saving and start over.

Mike Rogers