- Open Excel
- Alt + F11 to open developer mode
- Add following code
VBA code: Force text string to Lowercase
1
2
3
4
| Private Sub Worksheet_Change(ByVal Target As Range)'Update 20140603Target.Value = VBA.LCase(Target.Value)End Sub |
VBA code: Force text string to proper case
1
2
3
4
| Private Sub Worksheet_Change(ByVal Target As Range)'Update 20140603Target.Value = Application.WorksheetFunction.Proper(Target.Value)End Sub |