Column header & Sheet title

[prija]

Hi,
I make a form with few text field. I want when user select one cell in sheet to transfer in text field a column header(A,B,C,....,AA,AB,...).I can transfer column number!
Second, my user rename sheet name (sheet1 to FirstSheet) and
he want to display that name in one cell. All that he want to do when create new sheet from active sheet and rename that new sheet.
Is it posible?

 

[SkipVought]

Hi,

ColString = Chr(ActiveCell.Column + 64)

To find the sheet name

=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[RobBroekhuis]

If you need to go beyond column Z, the following will work:

function CurrentColumn(r as range) as string
dim s as string
s=r.EntireColumn.Address(0,0)
CurrentColumn=left(s,instr(s,":&quot-1)
end function


Rob