If you want the text to be uppercase as you are typing the text use this code
below.

Private Sub TextBox1_Change()
With Me.TextBox1
.Text = UCase(.Text)
End With
End Sub

It's nearly exactly the same except you have it opperate as soon as the
information within the textbox is changing.

Thanks to Norman for giving the starting point and code. :)

Rob
"Greg" wrote:

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