I am moving text from one textbox (from the drawing toolbar) on one sheet to
another textbox (on another sheet). I used these textboxes to allow for
copy/paste functionality, which I couldn't make work using the ControlToolbox
Textboxes . Anyway, when I move the data using the function below, It does
not move the formats (underline / bold) of the moved text. Any help would be
appreciated.

Thank you.

Sub moveit

Dim x1 As Integer
Dim Source1 As TextBox
Dim Target1 As TextBox
Dim Text1 As String

Set Source1 = sht1.DrawingObjects(1)
Set Target1 = sht2.DrawingObjects(1)

For x1 = 1 To Source1.Characters.Count Step 250

' Place the first text box text into a variable called theText.
Text1 = Source1.Characters(Start:=x1, Length:=250).Text

' Place the value of theText variable into second text box.
Target1.Characters(Start:=x1, Length:=250).Text = Text1

Next

End Sub