I would probably do something like this...

Public Function ColumnNumber(ByVal ColAddress As Variant) As Long
Dim rng As Range

On Error Resume Next
Set rng = Range(ColAddress)
Set rng = Columns(ColAddress)
ColumnNumber = rng(1).Column
End Function

--
HTH...

Jim Thomlinson


"Charlotte E" wrote:

I've made a (not so) small UDF to return the column number, no matter how
the input is given, ie.:


Function RCN(ColumnAddres as variant) as long

If doesn't matter, if I give en column as...

RCN(3)
RCN("C")
RCN("C7")
RCN("C:C")
RCN("$C$11")

....in all cases it returns the number 3, which is the column number of the
address given.

But, I kind of think my UDF is somewhat long and takes too many lines for
such a relative simple task.

Could anyone guide me to a simple solution, for a small UDF to solve this
little "problem"?


TIA,