VB UserForm

[grahammal]

If I want to change the case from lower case to upper case in the following location I can use the following code.
Dim cell As Range
For Each cell In Range("F3").Cells
If cell.HasFormula = False Then cell = UCase(cell)
Next

How do I achieve the same result if the location is a TextBox created in a UserForm. ie TextBox1 in UserForm1

[Peter T]

Me.TextBox1.Text = UCase(Me.TextBox1.Text)

If code is not in the form change "Me" to the form name

Note this will trigger the TextBox Change event if you are using it. If
necessary set a (global) boolean flag to True/False either side of the above
code to early exit the event and re-set to false when done.

Private Sub TextBox1_Change()
If bExit Then Exit Sub
End Sub

Regards,
Peter T


"grahammal" <[email protected]> wrote
in message news:[email protected]...
>
> If I want to change the case from lower case to upper case in the
> following location I can use the following code.
> Dim cell As Range
> For Each cell In Range("F3").Cells
> If cell.HasFormula = False Then cell = UCase(cell)
> Next
>
> How do I achieve the same result if the location is a TextBox created
> in a UserForm. ie TextBox1 in UserForm1
>
>
> --
> grahammal
> ------------------------------------------------------------------------
> grahammal's Profile:
http://www.excelforum.com/member.php...o&userid=20336
> View this thread: http://www.excelforum.com/showthread...hreadid=507615
>