Thanks Norman

"Norman Jones" wrote in message
...
Hi Greg,

Try:

'=============
Private Sub TextBox1_Exit(ByVal Cancel _
As MSForms.ReturnBoolean)
With Me.TextBox1
.Text = UCase(.Text)
End With
End Sub
'<<=============


---
Regards,
Norman


"Greg" wrote in message
...
Hi all,

How do I set up a userform when i exit textbox1 it automatically changes
the text in the box to uppercase.

Thanks in advance

Greg