hth,

thanks for the reply. although, it is too advanced for me. can you adjust this code to make it work? Currently, this is not working because of the "If Activesheet.Cells(x,7)="PLANT".... the equal sign is messing it up.

I do appreciate your time....

x = 2
Do
ActiveSheet.Cells(x, 7).Select
If ActiveSheet.Cells(x,7) = "PLANT" Then

Selection.Offset(0,1) = "Yes"
End If
Else
End If
x = x + 1
Loop Until Trim(ActiveSheet.Cells(x, 1)) = ""