weird character in cell using vbCrLf

[dinotom]

In the following code snippet;

strFill = "Query for" & strCommName
strFill = strFill & vbCrLf & strPitHrs
strFill = strFill & vbCrLf & "This query has a rating of"

The cell output is formatted this way;
"Query for SP500
9:30-4:15 EST
This query has a rating of"

And thats how the text shows if you copy and paste it BUT in the cell there is a square box at the end of each of the first two lines. Is the vbCrLf causing that? If so what should I be using instead so the text in the cell shows exactly like the bolded text above

 

[Norie]

Thomas

If you select the cell and goto Format>Cells and check Word Wrap on the Alignment tab the square will go away.

The text should also look like you want it, but the vbCrLf will still be there.

 

[dinotom]

and to set that via vba?
.wraptext = true?

 

[Norie]

Yep, well that's what I got when I turned on the macro recorder and did it manually.

 

[dinotom]

Setting the wrap text to checked does not remove the square, which by the way is a square with a little ? in it

 

[dinotom]

That square is coming from the text grabbed by the vlookups, as that is the text it is after each time. I just added 3 other vlookup grabs and each has the square after it. Why is the text returned from the vlookup function adding the square?

 

[Norie]

Thomas

Probably because the cell/range the vlookups are returning the values to aren't formatted to wrap text.

VLOOKUP returns only the value, not the formatting.

 

[dinotom]

Nope, that didnt work either. I reset the formatting in the table to wrap text checked and running my sub still put the cell text with the little square

 

[Norie]

Try formatting after you put the value in.

I've no idea how you are putting the values in but you might be wiping out any existing formatting if you are just doing some straightforward copying.

 

[dinotom]

The correct answer is the vbCrLf needed to be changed to vbLf. The vbCrLf is what was adding the little square character