VBA Code To Convert Column Number to Letter Or Letter To Number

VBA Code To Convert Column Number to Letter Or Letter To Number

What This VBA Code Does

In this article, I'm going to show you how to easily convert a cell column numerical reference into an alphanumeric (letter) reference and vice versa.

Converting Letter To Number

The below subroutine will take a given column letter reference and convert it into its corresponding numerical value.

Sub Letter2Number()
'PURPOSE: Convert a given letter into it's corresponding Numeric Reference
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault

Dim ColumnNumber As Long
Dim ColumnLetter As String

'Input Column Letter
  ColumnLetter = "AG"
  
'Convert To Column Number
   ColumnNumber = Range(ColumnLetter & 1).Column
  
'Display Result
  MsgBox "Column " & ColumnLetter & " = Column " & ColumnNumber
    
End Sub

Converting Number To Letter

The following sub-routine will take a given column number and convert it into its corresponding letter value.

Sub Number2Letter()
'PURPOSE: Convert a given number into it's corresponding Letter Reference
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault

Dim ColumnNumber As Long
Dim ColumnLetter As String

'Input Column Number
  ColumnNumber = 115

'Convert To Column Letter
  ColumnLetter = Split(Cells(1, ColumnNumber).Address, "$")(1)
  
'Display Result
  MsgBox "Column " & ColumnNumber & " = Column " & ColumnLetter
  
End Sub

How Do I Modify This To Fit My Specific Needs?

Chances are this post did not give you the exact answer you were looking for. We all have different situations and it's impossible to account for every particular need one might have. That's why I want to share with you: My Guide to Getting the Solution to your Problems FAST! In this article, I explain the best strategies I have come up with over the years to getting quick answers to complex problems in Excel, PowerPoint, VBA, you name it

I highly recommend that you check this guide out before asking me or anyone else in the comments section to solve your specific problem. I can guarantee 9 times out of 10, one of my strategies will get you the answer(s) you are needing faster than it will take me to get back to you with a possible solution. I try my best to help everyone out, but sometimes I don't have time to fit everyone's questions in (there never seem to be quite enough hours in the day!).

I wish you the best of luck and I hope this tutorial gets you heading in the right direction!

Chris
Founder, TheSpreadsheetGuru.com