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" wrote in message
...
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