Hi Ivory Kitten,

I must be doing something wrong! It works once or twice then
nothing happens! I'm copying it exactly.

What does "nothing happens" mean? Lower case entries in B1, B2 or B5 are not
converted to uppercase? Row 19 is not hidden or unhidden in reponse to
changes in B4?

There is nothing intrinsic to the Worksheet_Change code that would explain
successful operation followed by failure.

Perhaps, howevere, you have other code which may have turned off events. In
the Immediate window, try typing:

Application.EnableEvents = True

and hit the Enter key. Now retry the Worksheet_Change code.


---
Regards,
Norman