Sub FixTrailingNumbers()
'UpdatebyKutoolsforExcel20160409
    Dim xRg As Range
    Dim xCol As Range
    Dim xTxt As String
    On Error Resume Next
    Set xRg = Selection
    If xRg Is Nothing Then Exit Sub
    For Each xCol In xRg.Columns
        xCol.TextToColumns Destination:=xCol, TrailingMinusNumbers:=True
    Next
End Sub