Helferlein

Public Function IndexToChar(lngColumn As Long) As String
     If lngColumn < 1 Or lngColumn > 16384 Then Exit Function
     IndexToChar = IndexToChar(Int((lngColumn - 1) / 26)) & 
			Chr(((lngColumn - 1) Mod 26) + Asc("A"))
 End Function