Use the textbox change event and upshift it

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

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Jimbo1" wrote in
message ...

Hi,
On a Userform, does anyone know if you can set a textbox up so that
when characters are entered they are automatically changed to upper
case?

Cheers Jim.


--
Jimbo1
------------------------------------------------------------------------
Jimbo1's Profile:
http://www.excelforum.com/member.php...o&userid=30637
View this thread: http://www.excelforum.com/showthread...hreadid=534510