To get the Letter of a column, there are two ways.
#1 (Simplest way, I think):
Function GetColumnLetter(ColumnNumber As Long) As String GetColumnLetter = Split(Columns(ColumnNumber).Address(), “$”)(2) End Function
#2:
Function GetColumnLetter(ByVal ColumnNumber As Long, _ Optional ColumnName As String = “”) As String If ColumnNumber = 0 Then GetColumnLetter = ColumnName Else ColumnName = Chr(65 + (ColumnNumber – 1) Mod 26) & ColumnName ColumnNumber = (ColumnNumber – 1) \ 26 GetColumnLetter = GetColumnLetter(ColumnNumber, ColumnName) End If End Function
Advertisements