Passing Multiline textbox to one cell

[rustym]

Hi guys,
I am using a userform which has a textbox which I have set to multiline so that the user can enter several lines of text all in the same textbox. This text then needs to be copied to a cell in Excel. My problem is that when I do this the carriage return squares appear at the end of every line (and since I am printing this page I don't want them there).

I have tried the replace method and the split to get rid of the squares but they haven't worked. Does anyone have any ideas on how to get around this?

Thank you all in advance.

rustym

 

[VoG]

Try like this

Private Sub CommandButton1_Click()
With Range("A1")
    .WrapText = True
    .Value = TextBox1.Text
End With
End Sub

 

[rustym]

Thanks for the reply VoG. However, I tried your code but I am still getting those squares. Any other ideas?

 

[shg]

Try changing

.Value = TextBox1.Text

to

.Value = Replace(TextBox1.Text, vbCr, "")

 

[rustym]

Thank you shg4421 that worked!!