Code:Sub DeleteRows() Dim lng As Long With Worksheets("CurrentF") lng = .Cells(Rows.Count, "AA").End(xlUp).Row For lng = lng To 1 Step -1 If Trim(.Cells(lng, "AA").Value) & Trim(.Cells(lng, "C").Value) = "Target3" Then .Rows(lng).Delete End If Next lng End With End Sub




Reply With Quote

Bookmarks