this works perfectly, except for the fact that if a number ends in one or
more zeros, the zeros are dropped off

"Andy Brown" wrote:

"ac512" wrote in message
...
how do I reverse the values of a cell (eg. 1234 becomes 4321)???

Try this UDF (from John Walkenbach's site) in a plain VBA module:

Function Reverse(InString) As String
'UDF to reverse string - John W
Dim i As Integer
Dim StringLength As Integer
Reverse = ""
StringLength = Len(InString)
For i = StringLength To 1 Step -1
Reverse = Reverse & Mid(InString, i, 1)
Next i
End Function

HTH,
Andy