Function Number2Char(ByVal vNumber)

 

      Dim iDiv As Double, iMod As Integer

 

      If vNumber < 1 Then Exit Function

 

 

 

      iDiv = vNumber

 

      While iDiv > 26

 

          iMod = iDiv Mod 26

 

          If iMod = 0 Then

 

              iMod = 26

 

             iDiv = iDiv - 1

 

         End If

 

         Number2Char = Chr(64 + iMod) & Number2Char

 

         iDiv = iDiv \ 26

 

     Wend

 

 

 

    Number2Char = Chr(64 + iDiv) & Number2Char

 

End Function