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



On 18 Jan, 08:07, "Ron de Bruin" wrote:
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 Bruinhttp://www.rondebruin.nl/tips.htm

"carlo" wrote in ...

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

On Jan 18, 4:10 pm, "Patrick C. Simonds"
wrote:

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