Dim lastrow As Long
Dim r As Long
lastrow = Range("T" & Rows.Count).End(xlUp).Row
For r = lastrow To 2 Step -1
If Application.Countif(Cells(r,"T").Resize(1,4),0) = 4 Then
ActiveSheet.Rows(r).Delete
End If
Next
End Sub


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)
"David T" wrote in message
...
I'm trying create a macros that will delete the entire row if the values
in
cells T26 , U26, V26, and W26 are all 0. My macro is deleting all the
rows
even if the values of the cells are not 0. Can anyone tweak my code ?

Dim lastrow As Long
Dim r As Long
lastrow = Range("T" & Rows.Count).End(xlUp).Row
For r = lastrow To 2 Step -1
If (InStr(1, Cells(r, 20).Value) And (InStr(1, Cells(r, 21).Value) And
_
InStr(1, Cells(r, 23).Value) And InStr(1, Cells(r, 24).Value))) =
0
Then



ActiveSheet.Rows(r).EntireRow.Delete
End If

Next
End Sub