A for next (probably overbloated, but you said a For Next loop) :[VBA]For i = 1 To lrow
For Each Item In Array("Hat", "Shoe")
If Cells(i, "F") = Item Then
Cells(i, "M").Value = Cells(i, "M") / 2
Exit For
End If
Next Item
Next i[/VBA]
A for next (probably overbloated, but you said a For Next loop) :[VBA]For i = 1 To lrow
For Each Item In Array("Hat", "Shoe")
If Cells(i, "F") = Item Then
Cells(i, "M").Value = Cells(i, "M") / 2
Exit For
End If
Next Item
Next i[/VBA]
Posting Permissions
Reply With Quote