Delete last character if letter

Hi in VBA try this:

Sub aa()
Dim c As Range
Dim y
For Each c In Selection
If Not IsNumeric(Right(c, 1)) Then
c = Left(c, Len(c) - 1)
End If
Next
End Sub