Locate the word and autocomment

Hello,

what I basicly need is

Lets say there is "noobs suck" randomly written on A1 to A1000 among many other words.

I need a macro to search for "noobs suck" in whole sheet, when it locates it, it should write "Noobs do not suck" on D column at same row that it's located.

I am sure it's something easy but I just lack the knowledge for it. Thanks a lot !

Hi,

One way is the following macro:

Sub LocateAndAutoComment()
Dim rMycell As Range, rFirstcell As String

With Sheet1.Range("A1:A100")
    Set rMycell = .Find("noobs suck", LookIn:=xlValues)
    If Not rMycell Is Nothing Then
        rFirstcell = rMycell.Address
        Do
            rMycell.Offset(0, 3) = "noobs do not suck"
            Set rMycell = .FindNext(rMycell)
        Loop While Not rMycell Is Nothing And rMycell.Address <> rFirstcell
    End If
End With

HTH