Working great now. Looks like i had to change the security
parameters. Thanks again for all your help. You are indeed
an Excel guru.

-Ken
-----Original Message-----
Ken,

Make sure that the spelling and spacing of the Sheet2 and
Sheet3 strings in
this line exactly match the spelling and spacing on the
sheet tabs:

If Target.Cells.Count 1 Or (Sh.Name < "Sheet2" _
And Sh.Name < "Sheet3") Then Exit Sub

Other than that, it works great for me..... I can send
you a working version
if you are interested, and then you can figure out from
there where you are
going astray.

HTH,
Bernie
MS Excel MVP

"Ken" wrote in
message
...
Well, i'm doing something wrong. It works great with the
whole workbook but when i tried to make it just those
two
sheets, it stops working altogether. However, I don't
want
to have to keep bugging you for help, so I guess I'll
just
leave it at the workbook level... But thanks so much.

Ken
-----Original Message-----
Ken,

It doesn't work because I'm stoopid and didn't check my
code.

Change the OR to an AND in this line:

If Target.Cells.Count 1 Or (Sh.Name < "Sheet2" _
Or Sh.Name < "Sheet3") Then Exit Sub

Should be:

If Target.Cells.Count 1 Or (Sh.Name < "Sheet2" _
And Sh.Name < "Sheet3") Then Exit Sub


Sorry about that,
Bernie
MS Excel MVP

"Ken" wrote in
message
...
Hmmm... for some reason, this substitution doesn't
work -
it allows duplicates. Any ideas? I'd love to try and
learn
VBA a bit. Any good books/sites? Thanks again!

Ken
-----Original Message-----
Ken,

Change
If Target.Cells.Count 1 Then Exit Sub

To
If Target.Cells.Count 1 Or (Sh.Name < "Sheet2" _
Or Sh.Name < "Sheet3") Then Exit Sub

And change:
For Each mySh In ThisWorkbook.Worksheets

to
For Each mySh In Sheets(Array("Sheet2", "Sheet3"))

HTH,
Bernie
MS Excel MVP

"Ken" wrote in
message
...
this works great. thanks so much. can i apply it
to
just
two of three sheets? e.g. sheet 2 and 3, but not
sheet
1?
or does that require more VBAing?



.



.



.