Have a 13 Worksheet workbook
12 are like attached (1 per month)
Col A:Z contain tables that must be left alone
Col AA:AX contain 5 different tables (The same position on each worksheet)
Looking for a macro like below to delete any table row within these 5 tables that have a value of 0
This works well but I have to enter each table#
Sub DataTableDeleteRows()
Dim j As Long
With ActiveSheet.ListObjects("Table15")
For j = .ListRows.Count To 1 Step -1
If .ListRows(j).Range(1, .ListColumns("Correct").Index) = "0" Then _
.ListRows(j).Delete
Next j
End With
End Sub
Thanks for the assist
Jim
Bookmarks