Auto Capitalization

L

Looping through

Is there a way to force all cap text within a cell even if the user does not
have their cap lock on their computer?
 
S

Stephen C

Try the following worksheet change event, remember to change A1 to suit
your worksheet.

Private Sub Worksheet_Change(ByVal target As Range)
If Not Application.Intersect(target, Range("A1")) Is Nothing Then
Application.EnableEvents = False
target.Value = UCase(target.Value)
Application.EnableEvents = True
End If
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Mail Merge Switch - Dollars to Words 0
Someone knows how to add hyperlinks to hours to schedule an appointment? 0
Adding custom menus to existing excel application 0
error bar cap style 0
Re-title multiple MS Project .mpp files at once 0
Drop cap problem 3
How to make scroll bar permanently visible, Word 365 0
Highlight exact match in column 2

Top