"Since this is a programming question site, I assume you mean in VBA.
The ActiveCell is the currently marked cell (or range), ActiveCell.Column will give you the column number (leftmost column for a range if memory serves me correctly) that you can use.
Simply subtract one and use it (assuming it's not 1 already, of course). If you want the actual column letter (you don't need it for calculations but may want it anyway), use:
Function GetCol (ByVal rng As Range) If rng.Column < 27 Then GetCol = Chr (64 + rng.Column) Else GetCol = _ Chr (64 + (rng.Column - 1) \ 26) + _ Chr (65 + (rng.Column - 1) Mod 26)) End If End Function
along with:
Dim colStr as String colStr = GetCol (ActiveCell) MsgBox (colStr)
If this isn't a VBA question, it doesn't really belong here (although I see by one of your comments that you're talking about running a function, so I guess you did mean in VBA after all)."