Formatting with colors with if condition in VBA

Here is a macro I'm using. You just need the RGB color code (google for codes).

Sub ColorCells()
'Change A1:M250 to your needed range
For Each cl In Range("A1:M250")
       Select Case cl.Value
       'Yellow
       'Add or remove as many elements as you want. 
       Case "dog", "cat", "pig"
         'use google to search for RGB color codes
         cl.Interior.Color = RGB(255, 255, 0)
       'Blue
       Case "horse", "bird", "duck"
         cl.Interior.Color = RGB(153, 206, 255)
       End Select
   Next
End Sub