How to set range for changing text

[lizsunnysideup]

I'm using the following code which isn't working:

Dim k As Long

For k = 1 To Cells(Rows.Count, “AK”).End(xlUp).Row

If Range(“AK” & k).Value =”^MUST USE*” And Range(“A” & k).Value = “” Then

Range(“A” & k).Value = “PA REQD”

End If

Next k

I'm trying to categorize messages in column AK, but the text from column AK has hundreds of different text such as ^MUST USE NOVOLOG, ^MUST USE VIAGRA, ^MUST USE ATORVASTATIN, etc. The only thing that remains the same is ^MUST USE but I'm not sure how to set this as the value.

 

[Osvaldo Palmeiro]

Try this.

  If Range("AK" & k).Value Like "^MUST USE*" And Range("A" & k).Value = "" Then Range("A" & k).Value = "PA REQD"

 

[lizsunnysideup]

It worked! Thank you!