- 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 20140603 Target.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 20140603 Target.Value = Application.WorksheetFunction.Proper(Target.Value) End Sub
|