steve400243
Active Member
- Joined
- Sep 15, 2016
- Messages
- 429
- Office Version
- 365
- 2016
- Platform
- Windows
Hello, I use this code to make all letters capitol letters, Need to modify it so that it changes all words to proper case. I cannot figure it out with multiple google searches.
For instance HAPPY DAYS to Happy Days. Thanks for your help forum Experts.
For instance HAPPY DAYS to Happy Days. Thanks for your help forum Experts.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
On Error Resume Next
Application.EnableEvents = False
For Each cell In Target
cell = vbProperCase(cell)
Next
Application.EnableEvents = True
End Sub
Sub RunOnce()
Dim c As Range
Application.ScreenUpdating = False
For Each c In ActiveSheet.UsedRange
c = vbProperCase(c)
Next
Application.ScreenUpdating = True
End Sub