Capitalize first letter when type a name in each cell.
 

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.


--
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

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

"Craig Brody" wrote:

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 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 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
news:2FA928AA-5FBD-4EE5-BED9-
...
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 Json
try using
application.proper
for this

"Jason Morin" wrote:

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 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
news:2FA928AA-5FBD-4EE5-BED9-
...
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




.

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

-----Original Message-----
Hi Json
try using
application.proper
for this

"Jason Morin" wrote:

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 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
news:2FA928AA-5FBD-4EE5-BED9-
...
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




.


.

or strconv()

Frank Kabel wrote:

Hi Json
try using
application.proper
for this

"Jason Morin" wrote:

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 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
news:2FA928AA-5FBD-4EE5-BED9-
...
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




.



--

Dave Peterson