XL2000: How to Programmatically Convert Column Position Numbers to Column Letters (213264)

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals 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 needs. If you have limited programming experience, you may want to contact a Microsoft Certified Partner or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Partners, please visit the following Microsoft Web site: For more information about the support options that are available and about how to contact Microsoft, visit the following Microsoft Web site: To create and use a macro that uses the Column property to return the position number of the first column in specified range, and then converts the position number to the column letter, use the steps in the following example:

1. Start Excel, and then press ALT+F11 to start the Visual Basic editor.
2. On the Insert menu, click Module.
3. In the module sheet, type the following code:

   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
   						

4. Press ALT+F11 to return to Excel.
5. Select cells C1:E5
6. On the Tools menu, point to Macro, and then click Macros.
7. In the Macro name list, select Convert_Column, and then click Run. The macro returns a message box that contains the letter "C".
   
   NOTE: You can use this macro for any selected cell or range of cells.