Thanks. I'll give that a try.

I just tried this code. It worked as far as it put the number 4 in column S on that row and shaded the correct color, but it colored the entire sheet. Oops.

Private Sub PartOptional()
'Sets the part importance to required by coloring the cells appropriately and setting the importance number in Column S.


    With ActiveSheet
        .Cells(ActiveCell.Row, "S").Value = 4
        With .Cells(ActiveCell.Row, "A").Resize(, 5)
            Cells.Interior.Color = RGB(204, 255, 255)
        End With
    End With


End Sub