Capitalize the first letter in each word on a userform text box

[Jesienouski]

I'm trying to put together a userform that has multiple text boxes on it and I'd like to have the form auto capitalize the first letter in each word of the various text boxes. Some of the words in the text boxes will contain numbers, just as a heads up. I've searched and cannot find anything that I can get to work. Below is the code I have started, but I have no idea if it is even in the ballpark. If I can put together a sub that will do all the boxes at once instead of the individual fields that would be great, what I have started was one of the fields. Please help

Private Sub B1FirstName_Change()
    Dim x As Range
    'This will make the first letter of the text within any selection of
    'cells uppercase.
    For Each x In Selection
        x.Value = StrConv(x.Value, vbProperCase)
    Next x
    
End Sub

 

[Gary McMaster]

Try this:

x.Value = Application.WorksheetFunction.Proper(x.Value)

Gary

 

[Jesienouski]

That doesn't appear to be working, the function I'm trying to use this on is in a UserForm

 

[Jesienouski]

I found it, it may not be the best way to do this, but this seems to work

B1FirstName.Value = Application.WorksheetFunction.Proper(B1FirstName.Value)
Hooray!

I guess that if I had really studied the reply above it would have worked a lot sooner