Change to:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Len(Target.Value) = 0 Then Exit Sub
Application.EnableEvents = False
If Target.Column = 1 Then Target.Value = _
StrConv(Target.Value, vbProperCase)
Application.EnableEvents = True
End Sub

Regards,
Greg


"Greg Wilson" wrote:

Assuming the column that you enter names is column A then paste to the
worksheet code module:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Len(Target.Value) = 0 Then Exit Sub
If Target.Column = 1 Then Target.Value = _
StrConv(Target.Value, vbProperCase)
End Sub

Regards,
Greg


"vv" wrote:

I am writing names very often. It would be nice to write them with lower
case. Of course I need first letter of name Capital immediately after
leaving cell by TAB key. Is it possible to do it some way? Many thanks for
help. Excel and English beginner Vladi from Prague.