Capitalize first letter when type a name in each cell.

  • Thread starter Thread starter Guest
  • Start date Start date
G

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
 
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.
 
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
 
Hi Json
try using
application.proper
for this

Jason Morin said:
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
Click to expand...
 
Back
Top