Tommy,
I think I have you all over the place... apologies.
The color and the divison were only for testing the If Condition.
As I posted originally- I was going to bounce around- not my typical approach.... but I thought I would try and solve for certain pieces of the procedure as they were solved and then post back for help. I think I have made spaghetti out of it.
Some of your code should apply- But if we could start from here and I will try and stay on point...
Here is what I have:
[VBA]
For i = 1 To Lrow
If Cells(i, "F") = "Hat" Or Cells(i, "F") = "Shoe" Then
Cells(i, "M").Formula = Cells(i, "M") / 1
If Cells(i, "M").NumberFormat <> "0" Then
Cells(i, "M").(convert to fraction) psuedo code
End If
End If
Next i
[/VBA]

This line is only dealing w/ the number.
[vba]If Cells(i, "M").NumberFormat <> "0" Then [/vba]
What I actually need is the line above will perform the division to see if it is a whole number. If it is not a whole number we need to convert to a fraction.
I think you had some reference in your earlier posts that was dealing w/ that.