Try something like this:

With a starting value in A1

This formula adds the Check Digit to that value:
B1:
=A1&10-MOD(SUMPRODUCT(--MID(A1,{1,3,5,7,9,11},1))*3+SUMPRODUCT(--MID(A1,{2,4,6,8,10},1)),10)

If you will use that formula quite a bit, you may want to set up a User
Defined Function in a VBA gerenal module...

or

Set up a Named Calculation:
With B1 selecteed
From the Excel main menu:
<insert<name<define
Names in Workbook: AddCheckDigit
Refers to:
=A1&10-MOD(SUMPRODUCT(--MID(A1,{1,3,5,7,9,11},1))*3+SUMPRODUCT(--MID(A1,{2,4,6,8,10},1)),10)

Once that is done, entering =AddCheckDigit in any cell will calculate the
base-plus-check-digit for the cell to the left.

Example:
A2: 12345678901
B2: =AddCheckDigit
B2 returns 12345678901

Is that something you can work with?

***********
Regards,
Ron

XL2002, WinXP


"paul" wrote:

In creating a UPC code I have a number with 11 digits, and I need to generate
a 12th digit which is called a check character.
eg. 01234567890 _

Step 1) starting at the left add all characters in the odd positions (first
from the left, third from the left, ect.) eg. 0+2+4+6+8+0=20.

Step2) multiply the sum by 3. 20 x 3 = 60

Step 3) Starting from the left add all the characters in the even positions
(second from left, fourth from left, etc.) eg. 1+3+5+7+9 = 25

Step 4) Add the product of step 2 to the sum of step 3
60 + 25 = 85

Step 5) The check character is the smallest number which, when added to the
sum of Step 4, produces a multiple of ten.
Therefore the check character of the sample is - 5
85 + 5 = 90, a multiple of ten.