View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Seeker Seeker is offline
external usenet poster
 
Posts: 137
Default Delete row problem

First 3 criteria work but not the 4th, which is looking cells in column "J"
with all start of "HG", anybody can help please?

Sub Macro1()
Dim i As Long, LastRow As Long
Application.ScreenUpdating = False
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = LastRow To 2 Step -1
If Cells(i, "I") = "" Or Cells(i, "J") = "sss" Or Cells(i, "J") =
"ccccc" Or Cells(i, "J") = "//" Or Cells(i, "J") = "HG*" Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub