how can i trim entire sheet

[anilg0001]

how can i trim entire sheet?
vb macro needed

[wenqq3]

Sub CleanSelection()
    Dim c As Range, rng As Range
    Set rng = Intersect(Selection, Selection.Parent.UsedRange)
    If rng Is Nothing Then
        MsgBox "No cells with values!"
        Exit Sub
    End If
    For Each c In rng
        If Not IsError(c) Then
            c.Value = MEGACLEAN(c)
        End If
    Next c
End Sub

Function MEGACLEAN(varVal As Variant)
Dim NewVal As Variant
If IsMissing(varVal) Then Exit Function
NewVal = Trim(varVal) 'remove spaces
NewVal = Application.WorksheetFunction.Clean(NewVal) 'remove most unwanted characters
NewVal = Application.WorksheetFunction.Substitute(NewVal, Chr(127), "") 'remove ASCII#127
NewVal = Application.WorksheetFunction.Substitute(NewVal, Chr(160), "") 'remove ASCII#160

MEGACLEAN = NewVal
End Function

Hi anilg0001 ,i found this after google

[anilg0001]

its is not working sir
means nothing happen
last blank space in some cell still haveing

[wenqq3]

Can you upload the sample that can't trim. May need see the actual problem. Thanks