Auto Proper Case on Entry

[John]

I wish to change the values entered within an area to PROPER case on entry.
I have the following code which I use to automatically change all entered
values to UPPER

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count = 1 Then
If Not Intersect(.Cells, Range("C16:F16")) Is Nothing Then
Application.EnableEvents = False
.Value = UCase(.Value)
Application.EnableEvents = True
End If
End If
End With
End Sub

I thought it was a 'simple' case of just changing the text UCase to
something like ProperCase or PCase, but it doesn't work.

Can someone help?

Thanks

 

[Paul B]

John, try,
..Value = Application.Proper(Target.Value)

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

 

[John]

Thanks Paul works a treat

John, try,
.Value = Application.Proper(Target.Value)

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

 

[Paul B]

Your Welcome

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

 

[David McRitchie]

You can also make your macro more generic by using Selection
instead of a specific cell range.
http://www.mvps.org/dmcritchie/excel/proper.htm#upper