account # altering macro question

Hello! I'm seeking advice & help regarding the following issue-
I have account #'s that look something like this:
ADA1-000859-0000-06
ADA1-000868-0000-01
ADA1-000883-0000-02
ADA1-000883-0000-03
ADA1-000884-0000-02
ADA1-000889-0000-08
BEL2-000861-0000-01
BEL2-000877-0000-08
BEL2-000895-0000-02


These account #'s begin in Column A2 downward to Approximately A5000. In Column B2 down to B5000 would be usage amounts affiliated with the account #'s in column A. What I need without distorting any of the usage amounts for these particular accounts, is a macro or vba code, which I could possible activate via a button (preferred), that would delete the last three digits in all of the account numbers in column A2 thru A500. After the activation of the "button", my account #'s would then change and look like this: (citing the example above)

ADA1-000859-0000
ADA1-000868-0000
ADA1-000883-0000
ADA1-000883-0000
ADA1-000884-0000
ADA1-000889-0000
BEL2-000861-0000
BEL2-000877-0000
BEL2-000895-0000

Any help would be greatly appreciated!!

Please Login or Register  to view this content.

You can then just add a button and assign "remove3Digits" as the macro.

It works great! Thank you!

Is there a way to edit this code to eliminate a debugging error if there is no account data or just a zero in a cell and allow the code to continue working by just skipping over to the next cell down? until it reaches A5000? I'd sure appreciate anyone's help! Thanks in advance!!