Proper case from a user form text box

[tony.reynolds]

I have part of my userform code below that enters the valuse into a sheet

i need the values Company and contact to be proper case regardless of how the user enteres it.

can someone help me make it proper case when this runs or even better can it change it at the time the user enters it using the code for the Company_change ()

any help would be greatly app.

Private Sub Company_Change()
 
End Sub

With wb.Sheets("Sheet1")
      lr = .Range("A" & Rows.Count).End(xlUp).Row + 1
      .Range("A" & lr).Value = Company.Value
      .Range("B" & lr).Value = Contact.Value
      .Range("C" & lr).Value = Phone.Value
      .Range("D" & lr).Value = Fax.Value
      .Range("E" & lr).Value = Email.Value
      .Range("F" & lr).Value = Freight.Value
   End With

 

[Peter_SSs]

You could try

Private Sub Company_Change()
    Company.Value = StrConv(Company.Value, vbProperCase)
End Sub

But it might be more sensible to just fix it once with this instead

Private Sub Company_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Company.Value = StrConv(Company.Value, vbProperCase)
End Sub

 

[tony.reynolds]

thanks i will do when back at work tomorrow

I appreciate your help...

this forum is great and really helpfull to get better use out of office!!!!

---------------------

Aussie

Office 2010

 

[tony.reynolds]

hey thanks that works a treat.

I used the first one