Sorry, when I modified the code to search all of the cells in the row,I forgot to update the line:Cells(I, 1) = "Alert"should read: Cells(I, C) = "Alert"the code already has the sort after the changes have been made.