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

[efb_likebox fanpage_url="https://www.facebook.com/vbamarket/" box_width="840" box_height=340"" responsive="1" show_faces="1" show_stream="1" hide_cover="1" small_header="0" hide_cta="0" locale="en_US"]