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