for x = 4 to 3918
    if Instr(cells(x, 2), "LW") then
        numToFind = cells(x, 1)
        for y = 4 to 3918
            if cells(y, 1) = numToFind then
                cells(y, 1).entirerow.Interior.ColorIndex = 4
            end if
        next y
    end if
next x