VBProper for first word in a string

[tony.reynolds]

Private Sub Description_Change()
        Description.Value = StrConv(Description.Value, vbProperCase)
End Sub

I have this code working fine of previouse post but i want now to do it for the first word in the box on the user form.

"This Is How It Currently Changes It"

"This is how i want to be ABLE to Enter"

just the first letter must be Caps tyhe rest what ever I type.

 

[Blade Hunter]

Desciption.Value = UCase(left(Description.Value,1)) & right(Description.Value,len(Description.Value)-1)

 

[tony.reynolds]

Great thet works well I had to add On Error Resume Next before because if i tabbed to that cell again changed its value to "" (hit Delete) it had no Characters to edit

thanks

 

[Blade Hunter]

Great thet works well I had to add On Error Resume Next before because if i tabbed to that cell again changed its value to "" (hit Delete) it had no Characters to edit

thanks

How about:

if not isnull(Desciption.Value) then Desciption.Value = UCase(left(Description.Value,1)) & right(Description.Value,len(Description.Value)-1)

Then you don't need the on error resume next

 

[tony.reynolds]

guess it ends the same...

thanks for your ideas

 

[Blade Hunter]

It does, but resuming next you ommit any further errors which could be meaningful .