{quote}{login=vladturbo}{date=19.01.2011 09:59}{thema=Необходимо обойти ошибку Debug при удалении данных}{post}Доброго времени суток!  
Перерыл все и не могу понять почему вылезает ошибка:  
К кнопке (размещенной на Листе1) привязан макрос, который выводит на печать Лист4 и Лист5, после этого необходимо на Листе5 или удалить, или очистить от значений и границ определенный диапазон.  
Прошу помощи!  
 
Private Sub CommandButton6_Click()  
   With Sheets("Лист4").Activate  
   Sheets("Лист4").Select  
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True  
   End With  
       With Sheets("Лист5").Activate  
       Sheets("Лист5").Select  
       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True  
       Rows("9:60").Select  
       Selection.Delete Shift:=xlUp  
       End With  
Sheets("Лист1").Activate  
Range("C4").Select  
End Sub{/post}{/quote}  
 
а так?  
Private Sub CommandButton6_Click()  
    Sheets("Лист4").PrintOut Copies:=1, Collate:=True  
     Sheets("Лист5").PrintOut Copies:=1, Collate:=True  
       Sheets("Лист5").Rows("9:60").Clear  
     
Sheets("Лист1").Activate  
Range("C4").Select  
End Sub

Ну это Range("C4").Select ладно.  
А это Sheets("Лист1").Activate зачем?