XL: Macro to Convert Column Numbers to Column Letters (153318)

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. The Column property returns the first column of the first area in the range as a number.

Sample Visual Basic Procedure

   Sub Convert_Column()
       Dim MyColumn As String, Here As String

       ' Get the address of the active cell in the current selection
       Here = ActiveCell.Address

       ' Because .Address is $<columnletter>$<rownumber>, drop the first
       ' character and the characters after the column letter(s).
       MyColumn = Mid(Here, InStr(Here, "$") + 1, InStr(2, Here, "$") - 2)

       ' Show the answer.
       MsgBox MyColumn

   End Sub
				

If you run this macro from a worksheet, a message box displays the active cell's column letter.