Upper case in textbox

[Greg]

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

 

[Norman Jones]

Hi Greg,

Try:

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

 

[Greg]

Thanks Norman

Hi Greg,

Try:

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

 

[Guest]

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