excel force caps
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column < 5 Then Exit Sub
If Target.Column > 5 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub
adapted from this forum
http://www.excelforum.com/excel-formulas-and-functions/347695-automatically-change-text-to-uppercase.html
If Target.Column < 5 Then Exit Sub
If Target.Column > 5 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub
adapted from this forum
http://www.excelforum.com/excel-formulas-and-functions/347695-automatically-change-text-to-uppercase.html
Comments
Post a Comment