Double Delete

  • Thread starter Thread starter TGalin
  • Start date Start date
T

TGalin

I have this macro

Dim myLastRow As Long
Dim r As Long
Dim c As Range
myLastRow = ActiveSheet.Cells(10000, 4).End(xlUp).Row
For r = myLastRow To 1 Step -1
Set c = ActiveSheet.Range("D" & r)
If c.Value = "Back" Then
c.EntireRow.Delete
End If
Next r

What can I add to this macro so that it in addition to deleting the entire
row if it finds "Back" in Column D, it also deletes the entire row above it?
 
Change this line...

c.EntireRow.Delete

to this...

c.Offset(-1).Resize(2).EntireRow.Delete
 
Back
Top