Macro to delete blank worksheets

---

Delete blank worksheets in a workbook

---

Sub DeleteBlankSheets()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim X As Worksheet
For Each X In ActiveWorkbook.Worksheets
If WorksheetFunction.CountA(X.Cells) = 0 And ActiveWorkbook.Sheets.Count > 1 Then X.Delete
Next X
Application.ScreenUpdating = False
Application.DisplayAlerts = False
End Sub

---

How to use codes shared here?