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