Set QG = Worksheets("Quality Grid")
qa.Range("G22") = "X"