Thanks for your help.

Nothing happens when I run this macro.

I selected the developer tab

Then clicked Visual Basic (Alt f11)

Selected Insert and inserted a new module

Pasted the code in the new module

Renamed the module to AddBarCode

When I run it, nothing happens