Background fill based on multiple text criteria

[Barb Mick]

2/28/18	Inv Date	Due Date	Inv #	Amount	Days
Adams	2/21/18	3/23/18	5040188	9389.52	7
Adams	2/15/18	3/17/18	5040138	2220.98	13
Adams	2/15/18	3/17/18	5040139	1505.72	13
Bixly	2/26/18	3/28/18	5040223	1166.00	2
Bixly	2/26/18	3/28/18	5040221	1166.00	2
Cash	2/26/18	3/28/18	5040222	6548.09	2
Cash	2/26/18	3/28/18	5040185	21320.96	2
Davidson	2/14/18	3/16/18	5040104	15984.01	14
Davidson	02/21/18	3/23/18	5040103	16609.32	7

<tbody>
</tbody>

I'm looking for vba code to highlight (preferably background color but text color is ok) all occurrences of certain names in column A in a list like this.
I have about 30 different names to search for and my list is generally about 1200 rows. Also, I don't want to do a list box, it's always the same names.

I don't think this should be as difficult as I seem to be making it.
Can anyone help?

 

[bugmonsta]

hi,

Heres a bit of code I have used for a while, it will only colour the row to the last column and not the entire row.

I have quickly put in the VB colours, but you can change these to be RGB values instead.

Sub colourrowtest()
    Dim c As Range
    Dim lastcol As Integer
    Dim lastRow As Long
    
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
lastcol = Cells(1, Columns.Count).End(xlToLeft).Column

 For Each c In Range("A2:A" & lastRow)
    If c.Value = "Adams" Then
Range(Cells(c.Row, 1), Cells(c.Row, lastcol)).Interior.Color = vbRed
    ElseIf c.Value = "Davidson" Then
Range(Cells(c.Row, 1), Cells(c.Row, lastcol)).Interior.Color = vbGreen
    ElseIf c.Value = "Bixly" Then
Range(Cells(c.Row, 1), Cells(c.Row, lastcol)).Interior.Color = vbYellow
    End If

Next

End Sub

 

[Barb Mick]

Worked like a charm. Thank you, thank you, and thank you.