changing letter case in cell

Hi guys, fairly simple one, yet it has me stumped.

Trying to change my code to add another automatic function in my document. Here is the snippet of code involved:

Please Login or Register  to view this content.

Essentially what I would like to do is if text is entered into range L2:L* (where * is last row- LRow in my code) to have upper case. I have tried:

Please Login or Register  to view this content.

However the addition of line

Target.Value = UCase(Target.Value)

seems to send the function into a loop and can only be stopped by ESC.

Please assist me as I really would like to have this function. I know it must be something simple that I am overlooking and your help will be greatly appreciated.

You have to turn off OTHER macros when a ws_Change event is going to write to the worksheet itself, else it will trigger the ws_change macro all over again.

Here's a much shorter version of your macro that will do both things you want.

Please Login or Register  to view this content.

Also, this version will work when you change MORE than one cell at a time, your original macro aborted if you put values in more than one cell at once.