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
'<<=============


---
Regards,
Norman


"Greg" <[email protected]> wrote in message
news:[email protected]...
> 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
>

[Greg]

Thanks Norman

"Norman Jones" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
> news:[email protected]...
>> 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
>>
>
>