View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Luc[_3_] Luc[_3_] is offline
external usenet poster
 
Posts: 24
Default Delete Row if Value in Column L equals zero

lastrow = Cells(Rows.count, "A").End(xlUp).Row

Set myrange = Range("L1:L" & lastrow)
For Each count In myrange
If count.Value = "0" Then
count.EntireRow.Delete
End If
Next