Hi All


I use this code to force Proper case in columns F:H






Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub

On Error Resume Next

If Not Intersect(Target, Range("F:H")) Is Nothing Then

Application.EnableEvents = False

Target = StrConv(Target, vbProperCase)

Application.EnableEvents = True

End If

On Error GoTo 0



End Sub




This works fine , but sometimes fails in certain circumstances , particularly after symbols. For example , after brackets. The code in this case forces (Content) to (content).


Can someone help with an amendment to the code so that letters following symbols are left as capitals?


Grateful for any advice.




Very Best Wishes ,

Hi
as you have already 50+ posts you should know
1. It is important to post in the correct forum, be it for you or the other members
2. Code should be wrapped with code tags.
I will move the post
Please add tags - Thanks

__________________
Using O365 v2503 - Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post

Try:

HI


Ok Yes , that's fixed it - thanks!




Very Best Wishes ,

Sorry for putting this in the wrong place. I will try to use the correct quotes in future.

And please add code tags.....

__________________
Using O365 v2503 - Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post

Yes , I'll try to do that in the future. I wouldn't know how to do it on a 'solved' post. The site assumes a lot of knowledge which a user may not necessarily have.

Just edit the relevant post - click "Go advanced" - select your code and click the #button

__________________
Using O365 v2503 - Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post

Ok I'll be sure to do that in the future. Thank you for your advice.