Just Code : Get the cell letter of the active cell in Excel

Here is the code on how to do this in Unicom VBA. Needed to do this today , so thought it was a good one for the just code section

Set oCel = oDataMapHelp.cells[iRow][iCol]
                  oArray = split(oCel.Address,"$")
                  sColLeter = oArray[1]