GetColumnName, newer version of ColumnName_XOffset

Gets the column name from a cell address.
Returns "E" from "E45", or "BR" from "BR92"
Can pass "Column_Offset" to get column name of another column related to cell address
It used to be 3 functions, got combined into one
Example:
GetColumnName("F3", -2)
will return "D"


Public

Tested

My Own Work
Function GetColumnName(CellAddress, Optional Columns_Offset = 0)
    'IFS_Col = Range(CellAddress).Address(True, False)
    'If Columns_Offset <> 0 Then IFS_Col = Range(CellAddress).Offset(, Columns_Offset).Address(True, False)
    IFS_Col = Range(CellAddress).Offset(, Columns_Offset).Address(True, False)
    StFro = 1
    If InStr(1, IFS_Col, "!") > 0 Then StFro = InStr(1, IFS_Col, "!") + 1
    GetColumnName = Mid(IFS_Col, StFro, InStr(1, IFS_Col, "$") - StFro)
End Function

CellAddress, Optional Columns_Offset

GetColumnName("F3", -2)
will return "D"

Views 2670 Downloads 1098

VBA-Excel Components
ANmarAmdeen
763
Revisions

v4.0