Function ColumnLetter(c) ' c is the numerical col a = Split(Cells(1, c).Address, "$") ColumnLetter = a(1) End Function