Convert to Caps

  • Thread starter Thread starter Guest
  • Start date Start date
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column > 4 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub

As written Works on columns A:D only. Change the > 4 to a higher number for
more columns.

This is event code. Right-click on the sheet tab and "View Code".

Copy/paste the code into that sheet module.


Gord Dibben MS Excel MVP
 

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

How do I convert text to "proper text"? 1
Change all text on Spread sheet 1
How to convert all words to CAPS 5
Convert all caps to lower case 3
How do I convert addresses to all caps in Office 2007? 3
Converting all-caps to lowercase italics in whole doc 1
Won't Let Me Use Caps ? 6
Capitalizing Text 12

Back
Top