Double Delete
Thank you. It worked.
"muddan madhu" wrote:
try this
Range(c, c.Offset(-1, 0)).EntireRow.Delete
On Apr 2, 8:40 pm, TGalin wrote:
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?
|