Sorry I couldn't get back to you sooner, I work odd days and hours. I'm glad
you got it to work. The reason it did that is because you switch to the
barcode sheet near the end of the code, when it loops it tries to rund the
macro on the current page which is wrong, you have to go back and select your
original "Data" sheet for it to start the process over, I didn't catch that
when i replied, good job not giving up though! It's hard enough to do this
stuff but even harder when you don't have all of the data to test with.

-John

" wrote:

Well... I kept playing with this. I was finally able to make it work
if I inserted the following "selection" commands before the End Loop
command.

.....
'Select cell A1 of the Data worksheet (to restart back to the beginning
of the loop):
Sheets("Data").Select
Range("A1").Select
Loop

I'm not sure why this works... why would you need to select the data
worksheet in order to restart the macro?

Thanks,
Jessi