Function That Cycles Alphabet

[Johnny Meredith]

Hi all,

Does anyone have/know of a function that will return the next letter in
the alphabet. For instance...
?ReturnNextLetter(A)
B

?ReturnNextLetter(B)
C
..
..
..
?ReturnNextLetter(Z)
AA

Right now, I'm just using a large Select Case statement (25 case
statements, where Case A returns b, etc) to do this until I figured
out how to this elegantly (I have not yet ran into a situation where
I've had to pass z to the function to return AA, but it will
eventually happen.)

Thanks for your help,
Johnny

[jimfortune]

Johnny Meredith wrote:

Hi all,

Air Code:

Public Function GetNextExcelCol(strIn As String) As String
Dim strTemp As String

If strIn = "Z" Then
strTemp = "AA"
ElseIf Len(strIn) = 1 Then
strTemp = Chr(Asc(strIn) + 1)
Else
If Right(strIn, 1) = "Z" Then
strTemp = Chr(Asc(Left(strIn, 1) + 1)) & "A"
Else
strTemp = Left(strIn, 1) & Chr(Asc(Right(strIn, 1)) + 1)
End If
End If
GetNextExcelCol = strTemp
End Function

James A. Fortune