Reply to thread

Message: [QUOTE="Paul Wilson, post: 6371046"] Here is one solution. Public Sub Test() Dim rng As Range Dim cel As Range Dim iCounter As Integer Dim iLastRow As Integer Dim dtToday As Date Dim dtCellDate As Date Set rng = Range("J1:J100") 'Change the J-rows as appropriate iLastRow = rng.Cells.Count For iCounter = iLastRow To 1 Step -1 'Workup from the bottom! With rng If .Cells(iCounter).Value = "ABC" Then dtToday = Date 'Today's date dtCellDate = .Cells(iCounter).Offset(0, 1).Value 'Date value in K cell. If dtToday - dtCellDate >= 2 Then .Cells(iCounter).EntireRow.Delete End If End If End With Next End Sub Paul [/QUOTE]