v2 As Long
Dim abbr As Variant
abbr = Array("nd", "rd", "th", "st")

            If (IsNumeric(Left(Vals(V), 1))) Then
                For v2 = 0 To UBound(abbr)
                    If (Right(Vals(V), 2) = abbr(v2)) Then
                        Vals(V) = Left(Vals(V), Len(Vals(V)) - 2)
                        GoTo Vals1
                    End If
                Next v2
           End If