Sub deletesheetifcellSempty()
Application.DisplayAlerts = False
For Each sh In ActiveWorkbook.Worksheets

'if a12
'If Len(Application.Trim(sh.Range("a12"))) < 1 Then sh.Delete

'following line is ONE line for NO cell with ANYTHING, including header row
If Len(Application.Trim(sh.Cells.SpecialCells(xlCellT ypeLastCell))) < 1 Then
sh.Delete

Next sh
Application.DisplayAlerts = True
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"RU0824V" wrote in message
...
I have ten sheets that my macro runs through...if there is no report data
on
a sheet, I want it to delete the sheet. The the cell to check for data is
not
going to be A12 on all sheets.

--
RU0824V


"Don Guillett" wrote:

Are you trying to delete ONE sheet or any sheet in the workbook where
cell
a12 is empty?

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"RU0824V" wrote in message
...
Hello,
I have figured out how to delete a sheet if a cell contains no data
(although it does not seem to work consistently), but I cannot figure
out
how
to stop the next section of code if the sheet is deleted. The code for
the
deleted sheet (if it had contained data) gets applied to the next
worksheet.

Here is what I have for the deletion...should this be followed by
"else"
or
something? I am tyring to say "if cell A12 has no data, delete the
worksheet"

If IsEmpty(Range("A12")) Then SelectedSheets.Delete

Thanks!
Kathy
--
RU0824V