dim x as integer, sLetter as string

x=28
sLetter = replace(activesheet.cells(1,x).address(false,false ),"1","")

Tim


"Edmund" wrote in message ...
Pls teach me the correct way to "return activecell's column header in
Alphabet".

In VBA:
Columns(1) represents column A
Columns(2) represents column B
Columns(5) represents column E
Columns(26) represents column Z

When I get VBA to return a variable (an integer) between 1~26, how can I
convert this back to alphabet (A~Z)?

Currently in my codes, I do like this to display the "Alphabet" of the
column header of activecell:
'Msgbox Left(ActiveCell.Address(False, False, xlA1),1)

Now, I get into trouble when the returned integer exceeds 26.

Thanks a lot.

--
Edmund
(Using Excel XP)