Convert Column letter to number
and from bob phillips
'-----------------------------------------------------------------
Function ColumnLetter(Col As Long)
'-----------------------------------------------------------------
Dim sColumn As String
sColumn = Split(Columns(Col).Address(, False), ":")(1)
ColumnLetter = sColumn
End Function
--
Gary
"Toppers" wrote in message
...
Function courtesy of Chip Pearson:
Function ColumnNumber(ColLetter) As Integer
ColumnNumber = Cells(1, ColLetter).Column
End Function
"slymeat" wrote:
Anybody have some code to convert a column letter to it's column number
equivalent?
--
Andrew
|