That won't work in XL 97.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Arturo"
wrote in message
thanks.
Dim arr As Variant
arr = Split(ActiveCell.Address, "$")
MsgBox arr(1)



"Jim Cone" wrote:
Arturo,
Function GetColumn(ByRef lngColumnNum As Long) As String
GetColumn = Application.Substitute(Cells(1, _
lngColumnNum).Address(False, False), "1", vbNullString)
End Function
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Arturo"
wrote in message
x = ActiveCell.Column
Returns 1 for column A
How do I get x = A?
Hmmm
Arturo