Hit a brick wall with this one and I'm sure it's possible (just not
for me at the moment).

Code is directly from the KB article for copying text between
textboxes using the character method. The problem is that my
"CopyFrom" textbox is on a UserForm and the "CopyTo" textbox
is on the Active sheet.

UserForm is named "Amendment"
The textbox on the UserForm is TextBox2
The TextBox on the Activesheet is TextBox22

Coding below:

Sub TextBox_To_TextBox()
Dim x As Integer
Dim txtBox1 As TextBox, txtBox2 As TextBox
Dim theText As String
Set txtBox1 = ActiveSheet.DrawingObjects(1)
' Above should reference UserForm "Amendment", "TextBox2"
Set txtBox2 = ActiveSheet.DrawingObjects(2)
' Above should reference Activesheet(Textbox22)
For x = 1 To txtBox1.Characters.Count Step 250
theText = txtBox1.Characters(start:=x, Length:=250).Text
txtBox2.Characters(start:=x, Length:=250).Text = theText
Next
End Sub

Any help with this would be certainly appreciated.

Thanks,
John

Henry,

Thanks, but I still can't get it to work.
Will try a repost on a freash thread.

John

Henry wrote:

John,
Set txtBox1 = ActiveSheet.DrawingObjects(1)
' Above should reference UserForm "Amendment", "TextBox2"
won't reference the text box on Amendment as it's not on the activesheet but
on the userform.

Try this:

Sub TextBox_To_TextBox()
Dim txtBox1 As TextBox
Set txtBox1 = ActiveSheet.DrawingObjects(1)
' Above should reference Activesheet(Textbox22)
TxtBox1.Text = Amendment.TextBox2.Text

End Sub

HTH
Henry

"John Wilson" wrote in message
...
Hit a brick wall with this one and I'm sure it's possible (just not
for me at the moment).

Code is directly from the KB article for copying text between
textboxes using the character method. The problem is that my
"CopyFrom" textbox is on a UserForm and the "CopyTo" textbox
is on the Active sheet.

UserForm is named "Amendment"
The textbox on the UserForm is TextBox2
The TextBox on the Activesheet is TextBox22

Coding below:

Sub TextBox_To_TextBox()
Dim x As Integer
Dim txtBox1 As TextBox, txtBox2 As TextBox
Dim theText As String
Set txtBox1 = ActiveSheet.DrawingObjects(1)
' Above should reference UserForm "Amendment", "TextBox2"
Set txtBox2 = ActiveSheet.DrawingObjects(2)
' Above should reference Activesheet(Textbox22)
For x = 1 To txtBox1.Characters.Count Step 250
theText = txtBox1.Characters(start:=x, Length:=250).Text
txtBox2.Characters(start:=x, Length:=250).Text = theText
Next
End Sub

Any help with this would be certainly appreciated.

Thanks,
John