cutome text format?

  • Thread starter Thread starter aazar
  • Start date Start date
A

aazar

How can I get Excel to display text in caps without having to use
formuli? There is no facility like work to set Font to Caps or small
caps or do a custom Text format or is there?
 
right click sheet tab>view code>insert this. I have restricted to column 5
only so modify to suit.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub
 
I am very grateful for you assistance.
Don said:
right click sheet tab>view code>insert this. I have restricted to column 5
only so modify to suit.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub
Click to expand...
 
Back
Top