CopyTxt = ActiveSheet.TextBox1.Text
CopyTxt = Replace(CopyTxt,vbCrLf,vbLf)
Range("A1")=CopyTxt
--
- K Dales


"MSL" wrote:

Whenever i copy text from a text box to a cell, all new lines appear with a
square at the end of it. Anyone know how to stop these squares from
appearing.
Many thanks