Capitalize first letter when type a name in each cell.

[Guest]

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

 

[Bob Phillips]

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.

 

[Guest]

Hi
only possible with VBA. See:
http://cpearson.com/excel/case.htm

 

[Jason Morin]

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

 

[Guest]

Hi Json
try using
application.proper
for this

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

 

[Jason Morin]

Duh. Thanks Frank. I was trying to do something much more
complicated.

 

[Dave Peterson]

or strconv()

Hi Json
try using
application.proper
for this