Help with Strings in Cells that use alt key Returns

[davlcam]

Im using a simple identification sequence to apply ID numbers to rows.

The code looks like this:

For each x in Range (B5:B200)

If x ="Text in the Cell" the x Offset(0, -1) Value = "ID #1"
(repeat until all ID's are cylcled)

Next

So my problem is I have a few cells with strings that have alt returns in them.

For example: The string in cell B20 is -

1. Antibiotics within a hour cut time
     (overall rate)

(There is an alt return after the word 'time')

If my x line is:

If x ="1. Antibiotics within an hour cut time      (overall rate)" ...

The code does not recognize the line.

Ive had success with this code in the past, but the alt return in the cell is breaking it. Any help would be appreciated.

 

[davlcam]

Still looking for help on this.

I assume I need to use the underscore '_' somewhere in there, but I cant figure out how to do it...

 

[lokiluke]

Try use chr(10) or chr(13)

If x="first line text" & chr(10) & "second line text"

Haven't tested it as I am not near a computer

 

[shg]

Maybe

    If WorksheetFunction.Trim(Replace(x.Value, vbLf, "")) = "Text in the Cell" Then

 

[davlcam]

Try use chr(10) or chr(13)

If x="first line text" & chr(10) & "second line text"

Haven't tested it as I am not near a computer

I thought it might be an easy one. Thanks very much. chr(10) did it.

Edit:
Didnt see your post shg, may try that too , thanks.