If your cells are contiguous and in a single column, here is a method that will
sort each cell and write the result into the cell in the adjacent column.  It
can be easily modified for different situations.

To enter this Sub, <alt><F11> opens the VB Editor.
Ensure your project is highlighted in the project explorer window, then
Insert/Module and paste the code below into the window that opens.

To use this, select some cell in the column of cells to be sorted. Then
<alt><F8> opens the macro dialog box.  Select the macro and run.

Once satisfied that it is doing what you want, you can remove the "offset"
function from the line that writes the result, and overwrite the original, if
you want.

=======================================
Sub SortCell()
Dim Source As Range, Target As Range
Dim c As Range
Dim i As Long
Dim Temp()

Set Target = Selection.CurrentRegion.Offset(0, 1)
Set Target = Target.Resize(, 1)
Target.Clear
Set Source = Selection.CurrentRegion

For Each c In Source
   ReDim Temp(0 To Len(c.Text) - 1)
       For i = 0 To UBound(Temp)
           Temp(i) = Mid(c.Text, i + 1, 1)
       Next i
   SingleBubbleSort Temp
   c.Offset(0, 1).Value = Join(Temp, "")
Next c
End Sub

Function SingleBubbleSort(TempArray As Variant)
'copied directly from support.microsoft.com
   Dim Temp As Variant
   Dim i As Integer
   Dim NoExchanges As Integer

   ' Loop until no more "exchanges" are made.
   Do
       NoExchanges = True

       ' Loop through each element in the array.
       For i = 0 To UBound(TempArray) - 1

           ' If the element is greater than the element
           ' following it, exchange the two elements.
           If TempArray(i) > TempArray(i + 1) Then
               NoExchanges = False
               Temp = TempArray(i)
               TempArray(i) = TempArray(i + 1)
               TempArray(i + 1) = Temp
           End If
       Next i
   Loop While Not (NoExchanges)

End Function
================================
--ron