I Have two Text Boxes on a worksheet. They are using the default names. Text
Box 1 and Text Box 2.
I wish to have a code module copy the text from box 1 to box 2.

I was trying code along the following lines but this does not work.

Public Sub copytext()
Dim copytext As String
copytext = ActiveSheet.Shapes("Text Box 1").Characters.Text
ActiveSheet.Shapes("Text Box 2").Characters.Text = copytext
End Sub

I'am using Excel 97

Any Help Much appreciated.