If I select the data table, another program I have converted it to the
following function.
However, it's not valid outside the range 1-6. It's just designed to remove
a lookup table.
I'm sure this is not what the op wanted either.

Function Fx(n)
Fx = (215376 Mod (n + 31)) / 12
End Function
'= = = = = = = = =

Sub TestIt()
Dim j
For j = 1 To 6
Debug.Print j; Fx(j)
Next j
End Sub

1 1.33333333333333
2 1.5
3 1.66666666666667
4 1.75
5 2
6 3
--
HTH :)
Dana DeLouis
Windows XP & Excel 2007

<snip