Quote Originally Posted by Rasm View Post
Code:
Astr = Split(Cells(1, Along).Address, "$")(1)
Where
Along = Column number to be converted to letter
Astr = column letter returned
That code line looks awfully long to me. You can shorten your typing by an entire character if you do it this way ...

Code:
Astr = Split(Columns(Along).Address, "$")(2)