Sub www()  
' Макрос записан 10.10.2010 (Sergey)  
Dim sh As Worksheet  
Application.DisplayAlerts = False  
For Each sh In ThisWorkbook.Worksheets  
   If sh.DrawingObjects.Count = 0 Then sh.Delete  
Next  
Application.DisplayAlerts = True  
End Sub

Спасибо, Дмитрий! :)  
Извиняюсь, конечно, сразу не сказала, это все нужно искать только на активном листе (выбранном), и чтобы удалялся именно он :)  
Сижу теперь, думаю, как это исправить :)

{quote}{login=The_Prist}{date=10.10.2010 06:52}{thema=}{post}Если объектов нет или они скрыты строка:  
sh.DrawingObjects.Count = 0  
Выдаст ошибку.  
Предлагаю сначала отображать все объекты(врдуг скрыты):  
{/post}{/quote}  
Дим, а у меня молча удаляет листы без обьектов. Никаких ошибок. Правда со скрытыми не пробовал.