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

From: Jason Morin (jasonjmorin_at_OPPOSITEOFCOLDmail.com)
Date: 12/20/04 

Date: Mon, 20 Dec 2004 07:00:24 -0800

Hi Bob. I'm interested to know what the code would look
like if you wanted to capitalize the first letter in each
word in a cell using worksheet_change. richard m. smith =
Richard M. Smith. I tried but failed.
Jason

>-----Original Message-----
>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
>>
>>
>
>
>.
>