Attribute VB_Name = "Module2"
Option Explicit

Function ConvertValue2Column(iValue As Integer) As String
'by Toby Erkson
'Takes a number and converts it into a letter(s) to be used for cell column calcs.
'This is a little lengthy but it's simple to follow.

Dim Result As String, ASCIIVal As Long, dummy As String

ASCIIVal = 64  'Asc("@")
If (ASCIIVal + iValue) > 90 Then
    dummy = MsgBox("Table too long!", vbExclamation, "Error!")
    Exit Function
End If
Result = Chr(ASCIIVal + iValue)
ConvertValue2Column = Result
End Function