Microsoft KB Archive/213264

= XL2000: How to Programmatically Convert Column Position Numbers to Column Letters =

Article ID: 213264

Article Last Modified on 11/23/2006

-

APPLIES TO


 * Microsoft Excel 2000 Standard Edition

-



This article was previously published under Q213264





SUMMARY
In Microsoft Excel you can create a Microsoft Visual Basic for Applications Sub procedure (macro) that uses the Column property to return the column position, and then converts the column position number to the column letter.



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:

https://partner.microsoft.com/global/30000104

For more information about the support options that are available and about how to contact Microsoft, visit the following Microsoft Web site:

http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

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:  Start Excel, and then press ALT+F11 to start the Visual Basic editor. On the Insert menu, click Module.  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 $ $, 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  Press ALT+F11 to return to Excel. Select cells C1:E5 On the Tools menu, point to Macro, and then click Macros.</li> 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.</li></ol>

<div class="references_section">