Copy Textbox Contents

Hi,
In Excel, I wish to copy the contents of a textbox into a single cell.
How do I achieve this? The problem is the code to select the contents of the textbox.

The aim is to allow a user to type comments, which are then saved into a cell for later retrieval and the textbox is emptied so the next user can add comments.

Thanks, Simon

Simon

How about

ActiveSheet.Shapes("Text Box 1").Select
  strr = Selection.Characters.Text
  Selection.Characters.Text = ""
  Range("A1").Select
  Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = strr

rylo

That is exactly what I needed.

Thanks Rylo