How to Delete Excel Tabs where there is less than 2 rows of Data

[Vichet]

Hi,
I've been successfully able to delete all excel tabs where there are 0 rows of data in it using the code below:
Sub DelMT()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
If Application.CountA(ws.Cells) = 0 Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub

However, I like to delete all tabs where there is less than 1 row. i.e. If you have only 1 or more cells in the first row of a given sheet that sheet will be deleted.
If you have two or more rows, that sheet would not get deleted.
What changes are required to the above code?

 

[Peter_SSs]

Welcome to the MrExcel board!

Somewhat confusing.

Title: How to Delete Excel Tabs where there is less than 2 rows of Data
Post #1: I like to delete all tabs where there is less than 1 row
Post #1: If you have only 1 or more cells in the first row of a given sheet that sheet will be deleted

Anyway, assuming that column A in each sheet can be used to determine how many rows have been used, try the code below in a copy of your workbook.
Note that a workbook cannot exist with zero sheets so if all worksheets have less than 2 rows, one sheet will still remain after the code.

Sub Delete_Sheets()
  Dim ws As Worksheet
  
  Application.DisplayAlerts = False
  For Each ws In ActiveWorkbook.Worksheets
    If ws.Cells(ws.Rows.Count, "A").End(xlUp).Row = 1 And ActiveWorkbook.Sheets.Count > 1 Then ws.Delete
  Next ws
  Application.DisplayAlerts = True
End Sub

If column A is not a reliable guide to the number of rows used then post back for an alternative code