VBA code to find cells with a certain value with an if then statement after

[BassettN]

Good afternoon,

I am trying to find a certain cell value, and when it finds it, past a static value in the cell next to it. It is an error report, and there are 5 error columns, starting with "Reviewer Error 1 Comment" up to "Reviewer Error 5 Comment", and next to each of those there is currently a blank cell, but I want it to state "1) On Job Aid? 2) Automate? Best practice? Fix?"

I am new to VBA, but here is the code that is not working:

Sub ReviewerErrorAdd()


Dim SrchRng As Range
Dim cel As Range


Set SrchRng = ActiveSheet.Range("I1:I50")


For Each cel In SrchRng
    If cel.Value = "Reviewer Error *1 Comment" Then
        With cel.Offset(0, 1)
            .Value = "1) On Job Aid? 2) Automate? Best practice? Fix?"
            .Interior.Color = RGB(255, 255, 0)
            .Font.Color = vbBlack
        End With
    End If
Next cel


End Sub

Is what I am trying to accomplish not possible?

P.S., I've done many google searches, read many other questions, but none of them seem to really work for what I am trying to do.

Thank you in advance for reviewing this!

 

[footoo]

In what way is it not working?
Do you only want to check I1:I50?
Is this line correct? :

If cel.Value = "Reviewer Error *1 Comment" Then

Should it be? :

If cel.Value = "Reviewer Error 1 Comment" Then