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

Comments

Popular posts from this blog

no sound in Papers Please

pdf to png/jpg/etc

Crunchbang Changes