Delete Extra/Blank Sheets

[Murphander]

Hello - I wrote the following code to delete all empty sheets in a workbook (leaving one). I'm not an expert by any means, just wrote it the best way I knew how. Could you let me know if there is a better/more efficient way to do this?

Dim ws As Worksheet


    For Each ws In ActiveWorkbook.Worksheets
        If ActiveWorkbook.Sheets.count > 1 Then
            If WorksheetFunction.CountA(ws.Cells) = 0 Then
                If ws.Pictures.count = 0 And ws.ChartObjects.count = 0 Then
                    ws.Delete
                End If
            End If
        End If
    Next ws

If only blanks cells with no images/charts, then delete sheet.

Any thoughts?

 

[gallen]

Seems fine. Only time it will fall down is when all sheets in a workbook are blank

 

[Murphander]

Thanks gallen, good call.

Though when testing I've never had an issue with this. If all sheets are blank and I run this it will leave one sheet, even though it's blank. Maybe this is a default Excel behavior? Would I need to add some sort of validation to this routine to account for this or leave it as is?