Sub Codabar()
    'http://www.makebarcode.com/specs/codabar.html
    
    Dim previousBarcodeValue As Double: Dim numberOfBarcodes As Integer
        
    previousBarcode = InputBox("Enter previous barcode")
    numberOfBarcodes = InputBox("How many barcodes?")
    
    For r = 1 To numberOfBarcodes
        evenDigitsSum = 0: oddDigitsSum = 0
        currentBarcodeValue = Val(Left(previousBarcode, 13)) + 1
        currentBarcodeText = Trim(Str(currentBarcodeValue))
        
        For i = 2 To 14 Step 2
            evenDigitsSum = evenDigitsSum + Val(Mid(currentBarcodeText, i, 1))
        Next
        For i = 1 To 13 Step 2
            tempVal = Val(Mid(currentBarcodeText, i, 1)) * 2
            If tempVal >= 10 Then tempVal = tempVal - 9
            oddDigitsSum = oddDigitsSum + tempVal
        Next
        
        checkDigit = evenDigitsSum + oddDigitsSum
        checkDigit = checkDigit Mod 10
        If checkDigit <> 0 Then checkDigit = 10 - checkDigit
        previousBarcode = Trim(Str(currentBarcodeText)) & Trim(Str(checkDigit))
        Cells(r, 1) = previousBarcode
    Next

    Columns("A:A").Select
    Selection.NumberFormat = "0"
End Sub