Hi rodrigovim

You can use the change event for column A in this example
Copy the code in the sheet module and after you enter the ISBN book number in the cell it add the 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Target.Value = Target.Value & 1
Application.EnableEvents = True
End If
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"rodrigovim" wrote in message ups.com...
Hi,

How can insert or add a number (always the same e. 1) at right side of
70.000 ISBN book numbers automatically?

Public Librarian Ask to you...