vbLf & text wrapping - inconsistent behaviour

[mzza]

Hi there,

my current project includes code to pass selected Terms and Conditions on one tab onto a Quotation tab for printout.

Sheets("Ts & Cs").Select

Last_Row_TsCs = Sheets("Ts & Cs").Range("B" & Rows.Count).End(xlUp).Row

    Range("A1").Select
    Selection.AutoFilter Field:=1, Criteria1:="x"

    For i = 2 To Last_Row_TsCs
        If Sheets("Ts & Cs").Cells(i, 1) = "x" Then TsCs_String = TsCs_String & Sheets("Ts & Cs").Cells(i, 2).Text & vbLf
    Next i

    Range("A1").Select
    Selection.AutoFilter Field:=1

Sheets("Quote").Select
Range("C67:BA95").Value = TsCs_String

Range C67:BA95 is a single merged cell, with the "wrap text" option selected under the cell's formatting options. I know, not ideal, but I'm walking before I can run.

I've tested this by selecting a few of the Ts&Cs. Strangely, the first two selected Ts&Cs appear as I would expect - paragraphs with line breaks and proper text wrapping - but, for any subsequent Ts&Cs, the text doesn't wrap (instead, it disappears off the right-hand edge of the cell)

Any clue as to why this might be happening? Or better yet, how to fix it?

TIA

mzza

 

[mzza]

In an effort to circumvent the problem, I have created a new one...

instead of using a merged cell, I created a textbox (direct from the spreadsheet under the 'Draw' menu) which I am now trying to populate with text based on my coded string, viz:

ActiveSheet.Shapes("Text Box 26").Select
    Selection.Characters.Text = TsCs_String

There are no errors when the code is run, and the 'TsCs_String' retains its expected value - it just isn't being passed to the textbox correctly.

Any advice...?

TIA

mzza