Jim,

s'thing like following?

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
If .Text < Trim(UCase$(.Text)) Then .Text = Trim(UCase$(.Text))
End With
End Sub

ucase, left right etc are function of the VBA object.

note that they come in 2 flavors... ucase and ucase$

the functions with a $ at the end always return a string variable
without the $ they return a variant. It you assign the result to a
string use the $ flavor, as it's faster to work with strings than
variants.



--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Jim at Eagle wrote :

I need to properly display the state code in upper case.
Any suggestions?