Hi,
I’m trying to get this macro to delete the whole row if the word “delete” is located in column I. Obviously I have a coding problem… anyone have any ideas why it isn’t working. I don’t actually get any error messages… it acts like it’s running thru all the rows trying to find the word “delete”, but it never actually deletes any rows.
Thanks!
Lana
Sub DeleteRows()
Dim lngRow As Long
lngRow = 2
Do While Sheets(“data-complete”).Range(“A” & lngRow) “”
If Sheets(“data-complete”).Range(“I” & lngRow) = “Delete” Then
Sheets(“data-complete”).Range(“A” & lngRow).Delete Shift:=xlShiftUp
End If
lngRow = lngRow + 1
Loop
End Sub