Private Sub Workbook_Open()
Derlg = Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To Derlg
If Range("B" & i).Interior.Color = RGB(204, 255, 204) Then Range("A" & i & ":H" & i).Interior.ColorIndex = xlNone
If Range("B" & i).Interior.Color = RGB(0, 255, 0) Then Range("A" & i & ":H" & i).Interior.Color = RGB(204, 255, 204)
If Range("B" & i) = Range("C1") Then
Range("A" & i & ":H" & i).Interior.Color = RGB(0, 255, 0)
End If
Next i
End Sub