For-Next Loop Help

[Tommy]

Double whammy

[vba]
Dim Item As String
For i = 1 To lrow
For Each Item In Array("Hat", "Shoe")
If Cells(i, "F") = Item Then
Cells(i, "M").Value = GenFraction(Cells(i, "M") / 2, True)
Exit For
End If
Next Item
Next i
[/vba]