Attribute VB_Name = "Module2"
Function ConvertColumn2Value(sValue As String) As Integer
'Takes the column header as a string and converts it into a number to be used for cell column calcs.
'This is a little lengthy but it's simple to follow and has some error checking.

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

ASCIIVal = 65  'Asc("A")
Value = ucase(sValue)
ValueLength = Len(Value)
Select Case ValueLength
    Case 1
        Result = (Asc(Value) - ASCIIVal) + 1
    Case 2
        Result = (((Asc(Left(Value, 1)) - ASCIIVal) + 1) * 26) + ((Asc(Right(Value, 1)) - ASCIIVal) + 1)
    Case Else
        dummy = MsgBox("Invalid column designation!", vbCritical, "Formula Failure")
        Result = 0
End Select
ConvertColumn2Value = Result
End Function