Have a piece of code that transforms leading character to numeric
Now need a piece of code to revert the act so that the leading character (the alpha is converted back to numeric - numbers are left alone)
ie (A=0, B=1, C=2, D=3, E=4, F=5, etc)

Dim lngRowEnd As Long
Columns("B").Insert
lngRowEnd = Range("B65536").End(xlUp).Row
Range("B1").Value = UserId

Dim ce As Range, lastrow As Long
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Columns("B:B").Select
Range("B1").Select
ActiveCell.FormulaR1C1 = "UserID"
Range("B2").Select

For Each ce In Range("A2:A" & lastrow)
ce.Offset(0, 1).NumberFormat = "@"
ce.Offset(0, 1).Value = Chr(Asc(Left(ce.Value, 1)) - 17) & Mid(ce.Value, 2, Len(ce.Value))
Next ce
End Sub

Any assistance greatly appreciated
Thanks