I have used the below code previously but need to make a slight amendment in my current project.
In this project I need to colour cells B through T whereas the code below only colours the cell containing the word:
Dim vCells As Range
For Each vCells In Range("A1:A32768").Cells
If Left(vCells.Text, 4) = "Book" Then
vCells.Interior.ColorIndex = 43
vCells.Borders.LineStyle = xlContinuous
vCells.Borders.Weight = xlThin
Would appreciate some help.