Check for data in cell. If found paste text into same row another column

I am trying to create a code that will check N12 for data. If found then I would like to enter the text “Right Here” into M12. Here is the code I am using but once I put it into VBA the third line of this block gets highlighted in red. Can you help me to get this working right?

Dim I As Long
Dim R As Long
I = ActiveSheet.Cells(Rows.Count, "N12").End(xlUp).Row
For R = 2 To I
With Cells(R, "N12")
If .Text Like "<>" Then
Cells(R, "M12") = "Right Here"
End If
End With
Next R

Hi Buddy7


Try...

Sub ptest()
    Dim c
    Dim firstAddress
    With ActiveSheet.Range("A1", Cells(Rows.Count, 1).End(xlUp))
        Set c = .Find(.Range("N12").Value, Lookin:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                c.Offset(0, -1).Value = "Right Here"
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
End Sub

Hi Pike,

This is perfect. Thank you!