Re: Capitalize first letter when type a name in each cell.

From: Bob Phillips (phillips_at_tiscali.co.uk)
Date: 12/20/04 

Date: Mon, 20 Dec 2004 14:35:22 -0000

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 work*** event code, which means that it needs to be
'placed in the appropriate work*** code module, not a standard
'code module. To do this, right-click on the *** tab, select
'the View Code option from the menu, and paste the code in. 

-- 
 HTH
    -------
    Bob Phillips
"Craig Brody" <CraigBrody@discussions.microsoft.com> wrote in message
news:2FA928AA-5FBD-4EE5-BED9-D3C069347042@microsoft.com...
> 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
>
>