Hi

Try


Private Sub Worksheet_Activate()
Dim rng As Range
Dim rCell As Range

Set rng = Range("A1:A3000")

For Each rCell In rng

If rCell.Value = "start" Then
rCell.Interior.Color = &HC080FF
End If

'If rCell.Value = "in progress" Then
'rCell.Interior.Color = &H7AEAEF
'ElseIf rCell.Value = "in progress a" Then
'rCell.Interior.Color = &H7AEAEF
'ElseIf rCell.Value = "in progress b" Then
'rCell.Interior.Color = &H7AEAEF
'ElseIf rCell.Value = "in progress c" Then
'rCell.Interior.Color = &H7AEAEF
'End If
If rCell.Value Like "in progress*" Then rCell.Interior.Color = &H7AEAEF

If rCell.Value = "done" Then
rCell.Interior.Color = &HE9FBA2
ElseIf rCell.Value = "over" Then
rCell.Interior.Color = &HE9FBA2
ElseIf rCell.Value = "end" Then
rCell.Interior.Color = &HE9FBA2
End If
Next
End Sub
rylo