Как удалить пустые листы в данной книге?

Question

Sub deleteemptysheets() 
Dim sh As Worksheet, wb As Workbook, c As Range 
sh = Sheets(wb.Sheets) 
    For Each c In wb.Sheets 
     If IsEmpty(sh.UsedRange) Then 
      sh.Delete 
     End If 
    Next 
Set sh = Nothing 
Set wb = Nothing 
Set c = Nothing 
End Sub 

Вопрос: Я попытался удалить пустые листы, но я не могу получить точный код. Может ли кто-нибудь помочь мне в этом случае? Благодарю.

Answer 1

Вы не определяете, откуда берется wb, и вы не используете sh для прокрутки листов.

Я предполагаю, что вы хотите перебирать листы в активной книге. Если это так, вам не нужно wb или c. Попробуйте следующее:

Sub deleteemptysheets() 
    Dim sh As Worksheet 
    For Each sh In ActiveWorkbook.Sheets 
     If IsEmpty(sh.UsedRange) Then 
      sh.Delete 
     End If 
    Next 
    Set sh = Nothing 
End Sub