I have this following code to make the rows changed based on the critea in
column 16, and I need add A "Red, Yellow, Green" for status to only one
column 30 at the end of the spreadsheet. How do I add another code? I keep
getting an error..

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, clr As Long
For Each c In Target.Cells
If c.Column = 16 Then

Select Case c.Value
Case "Analyze": clr = RGB(204, 255, 255)
Case "Build ": clr = RGB(204, 255, 255)
Case "PDP": clr = RGB(204, 255, 255)
Case "Pending Requirements Review": clr = RGB(204, 255, 255)
Case "Requirements Verified": clr = RGB(204, 255, 255)
Case "Testing": clr = RGB(204, 255, 255)
Case "Installed-In Production": clr = RGB(201, 153, 255)
Case "In-Progress Pending Verification": clr = RGB(201, 153,
255)
Case "Cancelled": clr = RGB(128, 0, 0)
Case "On-Hold": clr = RGB(255, 255, 153)
Case "On-Hold Pending Resource": clr = RGB(255, 255, 153)
Case "On-Hold Pending Requirements": clr = RGB(255, 255, 153)
Case Else: clr = RGB(255, 255, 255)
End Select

With c.EntireRow.Cells(1).Resize(1, 26)
.Interior.Color = clr
End With

End If
Next c
End Sub