try right click sheet tabview codecopy paste thisSAVE. as written works
only in col A (1)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 1 Then Exit Sub
Application.EnableEvents = False

If Target.HasFormula Then
Target.Formula = Application.Proper(Target.Formula)
Else
Target.Value = StrConv(Target.Value, vbProperCase)
End If
Application.EnableEvents = True
End Sub

--
Don Guillett
SalesAid Software

"Craig" wrote in message
...
How do you get Excel to capitalize automatically the first letter when
typing
a name in each cell. Example, when I type a name, I have to manually
capitalize the first letter in the name.

Thank you very much