Hello all. I have a textbox (named txtdef) on a userform.
When the userform gets activated, txtdef gets populated
with a cell value that contains a big group of words. I'm
struggling with forcing the cell contents to wrap within
the text box so the entire definition is visible. Snip of
my code that doesnt' work:

Private Sub UserForm_Activate()

With txtdef
.Value = Cells(rndrow, 1).Offset(, 2)
.WordWrap = True
End With

End Sub

The text box ends up looking like:

***********************
*This is a test of usi*
* *
* *
***********************

instead of:

***********************
*This is a test of *
*using the text box *
*wrap properly. *
***********************

Thanks.
Jason