Capital Letters

J

Jason

I have a coloumn that I would like to have in all capital letters.
Even if the user enters all lowercase I would like the spreadsheet to
convert it to capital letters. Any Ideas?
 
G

Gord Dibben

Jason

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 1 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub

Target.Column number to be your desired column.

Right-click on the sheet tab and "View Code"

Paste the above into that module.


Gord Dibben Excel MVP




I have a coloumn that I would like to have in all capital letters.
Even if the user enters all lowercase I would like the spreadsheet to
convert it to capital letters. Any Ideas?
Click to expand...

Gord Dibben MS Excel MVP
 
Top