View Single Post
  #2   Report Post  
Andy Brown
 
Posts: n/a
Default

"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