Excel VBA Video Training/ EXCEL DASHBOARD REPORTS

Excel: Reverse Cell Text/Content

Back to: Excel Custom Function/Formulas . Got any Excel/VBA Questions? Free Excel Help

This UDF will reverse the content of any cell

The Code

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

To use this UDF push Alt+F11 and go Insert>Module and paste in the code. Push Alt+Q and save. The Function will appear under "User Defined" in the Paste Function dialog box (Shift+F3).

Enter the function like this for text:

=Reversecell(A1,TRUE)

Or either of the ways below for numeric data

=Reversecell(A1,FALSE)
=Reversecell(A1)