VBA – Force Proper, Upper, or Lower case automatically

Associated Files Download Links

Do you need to automatically change a cells text to Proper, Upper, or Lower case after the user enters it? There are multiple way to accomplish this, and multiple requirements possible. Here is an example that automatically changes everything after it’s entered in a particular column. Hopefully you can build from this example!

1. Press ALT and F11 to open the code window

2. Double click the sheet name you want to automatically

change case

3. Put this code in the code window:

Change Text to Proper Case

Code for Proper case

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

PrivateSubWorksheet_Change(ByValTarget AsExcel.Range)

Application.EnableEvents=False

IfTarget.Column=5Then

Target=StrConv(Target,vbProperCase)

EndIf

Application.EnableEvents=True

EndSub

Change Text to Upper Case

For Upper case you can change

1

StrConv(Target,vbProperCase)

to

1

Ucase(Target)

Change Text to Lower Case

For Lower case you can change

1

StrConv(Target,vbProperCase)

to

1

Lcase(Target)

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro – A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!