Adjust Macro so the user name begins with a capital letter followed by lowercase.

[Livin404]

Greetings,
The following macro works well; however I need to make a small tweak, so the first letter will begin with a capital and the rest of the name will be lowercase. The line is

Cells(Target.Row, "H").Value = LCase(Split(Application.UserName, ",")(0))

Thank you,

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Columns.AutoFit
If Target.Cells.Count = 1 And Target.Column = 2 Then
Cells(Target.Row, "H").Value = LCase(Split(Application.UserName, ",")(0))
End If
Application.EnableEvents = True
End Sub

 

[Fluff]

How about

Cells(Target.Row, "H").Value = StrConv(Split(Application.UserName, ",")(0), vbProperCase)

 

[Joe4]

That is known as "Proper Case".
To see how to do that in VBA, have a look here: VBA Upper, Lower, and Proper Case - Case Functions - Automate Excel

 

[Livin404]

That is known as "Proper Case".
To see how to do that in VBA, have a look here: VBA Upper, Lower, and Proper Case - Case Functions - Automate Excel

You're right, I send plenty of example of upper and lower case. I looked into a few months ago, but I had to sort out more critical areas. Thank you,

 

[Joe4]

You are welcome.
Glad we were able to help.

 

[Livin404]

How about

Cells(Target.Row, "H").Value = StrConv(Split(Application.UserName, ",")(0), vbProperCase)

Exactly what I was looking for. Thank you,

 

[Fluff]

What Joe said in post#5.