Sub RunMe() Dim mFind As Range For Each cell In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row) Set mFind = Columns("B").Find(cell.Value) If Not mFind Is Nothing Then Set mFind = Columns("C").Find(cell.Value) If Not mFind Is Nothing Then mFind.ClearContents End If Next cell For Each cell In Range("C2:C" & Range("A" & Rows.Count).End(xlUp).Row) If cell.Value = vbNullString Or cell.Value = 0 Then cell.Offset(0, 2).Value = "x" Next cell End Sub
DON'T MISS