How do I shorten a 17 digit field to a 6 digit field?

[Paul Bass]

I am using Microsoft Exce 2002. I am trying to shorten a few hundred 17
digit alphanumeric fields to just the last 6 digits of the 17 digit fields.
Any ideas would be helpful.

[Miguel Zapico]

One approach can be with the worksheet formula RIGHT. If you have you data
in column A, something like this in column B will do what you want:
=RIGHT(A1,6)

Hope this helps,
Miguel.

"Paul Bass" wrote:

> I am using Microsoft Exce 2002. I am trying to shorten a few hundred 17
> digit alphanumeric fields to just the last 6 digits of the 17 digit fields.
> Any ideas would be helpful.

[Don Guillett]

Sub shorten()
For i = 1 To Cells(Rows.Count, "e").End(xlUp).Row
Cells(i, "e").Value = Right(Cells(i, "e"), 6)
Next i
End Sub

--
Don Guillett
SalesAid Software
dguillett1@austin.rr.com
"Paul Bass" <Paul Bass@discussions.microsoft.com> wrote in message
news:B2044DC4-374B-4C75-B348-E5767362C26C@microsoft.com...
>I am using Microsoft Exce 2002. I am trying to shorten a few hundred 17
> digit alphanumeric fields to just the last 6 digits of the 17 digit
> fields.
> Any ideas would be helpful.