You are very welcome
--
Gary''s Student - gsnu200715


"St@cy" wrote:

Thanks! That did it. ...so simiple

"Gary''s Student" wrote:

Function TabeGECol(Level, Form) As Integer
Dim ColNum As Integer
ColNum = 1
Select Case Level
Case "L"
ColNum = 2
Case "E"
ColNum = 10
Case "M"
ColNum = 18
Case "D"
ColNum = 26
Case "A"
ColNum = 34
End Select
Select Case Form
Case 7
ColNum = ColNum + 0
Case 8
ColNum = ColNum + 2
Case 9
ColNum = ColNum + 4
Case 10
ColNum = ColNum + 6
End Select

TabeGECol = ColNum
End Function

--
Gary''s Student - gsnu200715