do a loop in excel sheet from Access

[bugsy]

hey group
How can i have something like this loop to run from ccess application which is already currently opn and where work is done ?

With objActiveWkb.Worksheets("Reconciliation Sheet")
For ii = 5 To 200
    If Range(ii, 9) = "NO" Then
        Range(ii + 1, 9).Interior.ColorIndex = "yellow"
    End If
Next
End With

 

[KeithG]

Can you expand on your question a little? I don't understand what you want to accomplish.

 

[bugsy]

Hey Keith

I have query opening to excel template.
At some point 2 records right of each "no" statement are colored blue

'shading non-matching items
With objActiveWkb.Worksheets("Reconciliation Sheet").Range("b5:an500")
    Set c = .Find("No", , , xlWhole, , , True)
    If Not c Is Nothing Then
        sAddress = c.Address
        Do
            c.Offset(, -2).Resize(, 3).Interior.Pattern = xlSolid
            c.Offset(, -2).Resize(, 3).Interior.ColorIndex = 33
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> sAddress
    End If
End With

I would also like to color yellow
left 2 cells from column I, where value is "no"