Say you are reversing the contents of cell A1, use the code below and
type =ReverseCell(A1,TRUE) in your target cell.


Function ReverseCell(Rcell As Range, Optional IsText As Boolean)
Dim i As Integer
Dim StrNewNum As String
Dim strOld As String
strOld = Trim(Rcell)
For i = 1 To Len(strOld)
StrNewNum = Mid(strOld, i, 1) & StrNewNum
Next i
If IsText = False Then
ReverseCell = CLng(StrNewNum)
Else
ReverseCell = StrNewNum
End If
End Function



HTH,
JP


On Nov 1, 3:06 pm, karen wrote:
I looking to take a column of part numbers (mixed with text and numerals) and
transpose the character position from left-to-right - changing it to
right-to-left. An example would be 5YA124 would change to read 421AY5