VBA Delete Empty Worksheets
VBA to loop all worksheets in active workbook and delete any empty sheets.
Application.DisplayAlerts = False For Each sht In ActiveWorkbook.Worksheets If WorksheetFunction.CountA(sht.Cells) = 0 And ActiveWorkbook.Sheets.Count > 1 Then sht.Delete End If Next sht Application.DisplayAlerts = True
