help with this code for assigning a value to a cell when another cell contains a specific string value

[kbishop94]

Column P (16) contains 'codes' that represent a description of something. Example: "CSR2B" = wrong labels

Also there can be more than 1 code in each cell in column P (and almost always will be more than 1 actually.) (which is whY I am using the 'Like' operator and the '& vbCrLf' )

For the most part, I have it figured out how I need it to work, but my code isnt quite structured/written correctly and I keep getting errors no matter how I seem to arrange it...

Heres what I have:

For Each Cell In Range(Cells(4, 16), Cells(rRow, 16))
If Cell Like "*CSR2B*" Then Rows(Cell, "A").Value = "wrong label " & vbCrLf
Next

I am using the "like" and vbCrLf because,again, most of all the cells in column P will have multiple ones.

The code needs to place the new value in column A in the same row.

Here is the how the 'codes' appear on the worksheet:

Here is what I need it to look like in column "A" per the corresponding "code" ("CSR2B") found in column P:
(where CSR0o = "paper work or billing issue" and CSR2B = "wrong labels")

 

[Fluff]

Try

If Cell Like "*CSR2B*" Then Cells(Cell.Row, "A").Value = "wrong label " & vbCrLf

 

[kbishop94]

awesome. many thanks, Fluff.

 

[Fluff]

You're welcome & thanks for the feedback