Force CAPITAL LETTERS

[Patrick C. Simonds]

Is there any way to all text on a worksheet to be capitalized?

 

[carlo]

You could add a onchange event on your worksheet.
as soon as something is changed, capitalize it:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = UCase(Target.Value)
End Sub

hth
Carlo

 

[Ron de Bruin]

Be carful with this because you can't enter formulas anymore in the worksheet when you use this.
It will make it a value after you press enter after you enter or edit the formula.

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.HasFormula Then Target.Value = UCase(Target.Value)
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


You could add a onchange event on your worksheet.
as soon as something is changed, capitalize it:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = UCase(Target.Value)
End Sub

hth
Carlo

 

[Andrew Taylor]

Also you need to handle multiple selections error values:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
If Not c.HasFormula And Not IsError(c.Value) Then c.Value =
UCase(c.Value)
Next
End Sub

 

[Ron de Bruin]

Correct

See this two pages also for the whole story

http://www.mvps.org/dmcritchie/excel/proper.htm
Or
http://www.cpearson.com/excel/case.htm

 

[carlo]

You're absolutely right.
Sorry, didn't consider that, thanks for telling me.

Carlo