Just out of curiosity, how does this function compare speed-wise to the
function you posted?

Function GetColNum(myColumn As String) As String
Dim X As Long, B() As Byte
B = UCase(myColumn)
GetColNum = B(UBound(B) - 1) - 64
If UBound(B) 1 Then GetColNum = GetColNum + 26 * (B(0) - 64)
End Function

Rick Rothstein (MVP - Excel)