Hi Dave,

Thank you very much!! I have managed to get this working and it is great!! I
can't tell you how much I appreciate your help.

Regards,

Mary.

Dave Peterson wrote:
I don't have a guess at what to do with the barcoder stuff, but you can change
this portion:

If Intersect(.Cells, Sh.Range("e:e")) Is Nothing Then Exit Sub

to something like:
If Intersect(.Cells, Sh.Range("e:e")) Is Nothing Then Exit Sub
if .row < 2 then exit sub 'added this line

or you could just type in the range you want:
If Intersect(.Cells, Sh.Range("e2:e65536")) Is Nothing Then Exit Sub

(adjust that 65536 to 1meg if you're using xl2007)

Hi Dave,

[quoted text clipped - 42 lines]
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200704/1


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200704/1