Excel Automation: Identifying and deleting blank work sheets

Question

I want to delete a worksheet if it contains no data/charts/images/drawing/hyperlink object or any other embedded objects.

I find out the solution of detecting and deleting blank sheets if there is no data in the cells by using the following code:-

if ( $Worksheet_Function->CountA( $sheet->{Cells} ) == 0 ) { $sheet->Delete; }

but it also deletes the sheet if there are charts or non-text objects.

Is there any way to identify and delete sheets if its completely empty?