Sub adde()For i = 1 To 6 Step 1If Cells(i, 1).Value < 100 Then _Cells(i, 1) = Cells(i, 1) & "yes"Next iEnd Sub