Find ActiveCell.column

[Guest]

When I use the Activecell.column statement it returns a numeric value for the
column(ex: 27), I want the character value (ex: AA).

Here is a sample of my code, I always want to access row #1, but the column
will vary based on the activecell location:

Dim sColumn as string
Dim sRangeName as string
Dim sValue as string

sColumn = activecell.column
sRangeName = sColumn + "1"
sValue = worksheets("sheet1").range(sRangeName).value

 

[Frank Kabel]

Hi
just a question: For what do you need this?

 

[Dick Kusleika]

Linda

See here

http://www.dicks-blog.com/excel/2004/05/column_numbers_.html to convert
column numbers to letter.

For your situation, you might use the Cells method

sValue = Worksheets("sheet1").Cells(1,ActiveCell.Column).Value

 

[Tom Ogilvy]

That would be the hard way to do it


Dim lColumn as long
Dim sValue as string

lColumn = activecell.column
sValue = worksheets("sheet1").Cells(1, lColumn + 1).value


or

sValue = Worksheets("sheet1").Cells(1,ActiveCell.Column).Value

 

[Tom Ogilvy]

to be precise
sValue = Worksheets("sheet1").Cells(1,ActiveCell.Column).Value
should be

sValue = Worksheets("sheet1").Cells(1,ActiveCell.Column + 1).Value