Hi Craig,

One way

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1:H10")) Is Nothing Then
With Target
.Value = UCase(Left(.Value, 1)) & _
LCase(Right(.Value, Len(.Value) - 1))
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

-------

Bob Phillips
"Craig Brody" wrote in message
...
Appreciate any help....

How do you get Excel to capitalize 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

Craig Brody