Force upper-case characters?

  • Thread starter Thread starter Jay
  • Start date Start date
J

Jay

Is it possible to make any cell display only upper-case letters. So, even if
a lower-case letter is entered its upper case equivalent is displayed.

I know I could simply use UPPER function to display the contents of another
cell in upper-case, but I'm wanting to avoid the need to use other cells.

Any help appreciated.

Regards

Jason
 
Try this sub taken from a post by Tom Ogilvy
which will force uppercase in col A:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error goto ErrHandler
If Target.Column = 1 Then
Application.EnableEvents = false
Target.Value = UCase(Target.Value)
End if
ErrHandler:
Application.EnableEvents = True
End Sub

To implement:
Right click on the tab of the sheet where you want this behavior and select
view code, then paste in the above procedure
 
Max said:
Try this sub taken from a post by Tom Ogilvy
which will force uppercase in col A:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error goto ErrHandler
If Target.Column = 1 Then
Application.EnableEvents = false
Target.Value = UCase(Target.Value)
End if
ErrHandler:
Application.EnableEvents = True
End Sub

To implement:
Right click on the tab of the sheet where you want this behavior and select
view code, then paste in the above procedure
Click to expand...

thanks Max, I'll give it a go.

Regards

Jason
 
Back
Top