Proper Case not doing letter after a character

Hi

I am trying to change some text into proper and found an example which I have used from another forum.

dim PropCells As Range, PropRange As Range....
Set PropRange = Worksheets("Trans").Range(Cells(1, 1), Cells((Range("a1").End(xlDown).Row), _
                 Range("A1").End(xlToRight).Column))
Application.EnableEvents = False
  For Each PropCells In PropRange
    PropCells = StrConv(PropCells, vbProperCase)
  Next PropCells
Application.EnableEvents = True

It does it great except when there is a word after a character - for example: I would like "(field" to go as "(Field".

Is there other code (simple code) to add that would sort this part out..?

I found this link:http://www.excelforum.com/excel-prog...t-working.html but i do not understand what..

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1.Value = StrConv(Me.TextBox1, vbProperCase)
End Sub

...is doing and I would prefer not to do a separate sub if at all possible.

dugong

Thanks guys.. I'll try that.

I may come back if I still have more trouble (with proper) if okay..?

dugong