I would like to create a macro that:
creates a textbox
fills the textbox with the text in "A1".
Allows the user to add or edit text in the textbox
Then when exiting the textbox:
copy the text from the textbox back to "A1"

the following macro seems to work ok - except for one problem - if
there is a lot of text in "A1" it won't copy it all into the textbox.

Private Sub UserForm_Initialize()
Dim testtext
WksText = Range("A1").Text

TextBox1.Text = WksText

TextBox1.AutoSize = False

TextBox1.WordWrap = True

TextBox1.ScrollBars = 2

TextBox1.MultiLine = True

End Sub

Private Sub UserForm_Terminate()

Range("A1") = TextBox1.Text
End Sub

Anybody have any ideas. I don't want to use a scrolling textbox in the
wks because some of us use macs and the control toolbox is not
supported on the mac. Alternatively if anyone has a way of putting a
scrolling textbox on the wks without using the control toolbox - or
windows ole that would be great.

Thanks
Richard


--
rgarber50
------------------------------------------------------------------------
rgarber50's Profile: http://www.excelforum.com/member.php...o&userid=11350
View this thread: http://www.excelforum.com/showthread...hreadid=387196