Hi Kevin,

Am Tue, 30 Dec 2014 18:21:38 +0000 schrieb Benny123:

The number that I am looking for is:

10098987203140227 and then the check digit.

try it with a function:

Function NewCheck(myRng As Range) As Long
Dim No1 As String
Dim mySum As Long, i As Long

For i = 1 To 17 Step 2
No1 = No1 & Mid(myRng, i, 1)
Next

For i = 2 To 16 Step 2
mySum = mySum + Mid(myRng, i, 1)
Next

No1 = 2 * No1
For i = 1 To Len(No1)
mySum = mySum + Mid(No1, i, 1)
Next

NewCheck = WorksheetFunction.RoundUp(mySum, -1) - mySum
End Function


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional