Force text in cell on worksheet to uppercase

[ipbr21054]

Hi,
As per title force text in worksheet cell to uppercase.

I have this in worksheet change event but its not doing anything.
I type cash BUT it doesnt change to CASH do you see why.
Thanks

If Intersect(Target, Range("L14:L18")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True

 

[Joe4]

It works fine for me.

Note the following things:

1. This only applies to entries in cells L14:L18

2. This code MUST be placed in the Sheet module that you want to run it against, and look something like this:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("L14:L18")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True

End Sub

3. It is possible that in your testing, you disabled events and never re-enabled them, so events would not fire anymore. You can turn them back on by manually running this code:

Sub ReEnableEvents()
    Application.EnableEvents = True
End Sub

If all those things are true/fixed, it should work. I verified your code works on my computer.

 

[ipbr21054]

I will check it out again

 

[ipbr21054]

Hi,
Been working fine so the above was just a glitch.

What i had noticed is sometimes when i click the drop down arrow in cell G13 the list shows some customers from the other day.
I am having to click another cell then go back to cell G13 & click drop down arrow to show the correct list values