<div>
Hi,<br />
<br />
pls try<br />
<br />

<pre><code id="code-20-39520718-1">Dim vCells As Range
    
    Sheets(&quot;Result&quot;).Select
    For Each vCells In Range(&quot;A1:A2000&quot;).Cells
        If Left(vCells.Text, 2) = &quot;Ev&quot; Then
            vCells.Resize(1, 18).Interior.ColorIndex = 43
            vCells.Resize(1, 18).Borders.LineStyle = xlContinuous
            vCells.Resize(1, 18).Borders.Weight = xlThin
        End If
    Next vCells</code></pre>
Regards
</div>


Hi,

pls try



Dim vCells As Range
    
    Sheets("Result").Select
    For Each vCells In Range("A1:A2000").Cells
        If Left(vCells.Text, 2) = "Ev" Then
            vCells.Resize(1, 18).Interior.ColorIndex = 43
            vCells.Resize(1, 18).Borders.LineStyle = xlContinuous
            vCells.Resize(1, 18).Borders.Weight = xlThin
        End If
    Next vCells

Regards

<div>
<div class="content wysiwyg-content">
I need to be able to find either a word or a word that starts with xx and then highlight a specific range.<br />
<br />
I have this code but it only highlights the word. Could someone assist please. I need to be able to Highlight the row from A to R<br />
<br />
Dim vCells As Range<br />
&nbsp; &nbsp; <br />
&nbsp; &nbsp; Sheets(&quot;Result&quot;).Select<br />
&nbsp; &nbsp; For Each vCells In Range(&quot;A1:A2000&quot;).Cells<br />
&nbsp; &nbsp; &nbsp; &nbsp; If Left(vCells.Text, 2) = &quot;Ev&quot; Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; vCells.Interior.ColorIndex<wbr /> = 43<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; vCells.Borders.LineStyle = xlContinuous<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; vCells.Borders.Weight = xlThin<br />
&nbsp; &nbsp; &nbsp; &nbsp; End If<br />
&nbsp; &nbsp; Next vCells<br />
<br />
many thanks
</div>
</div>


I need to be able to find either a word or a word that starts with xx and then highlight a specific range.

I have this code but it only highlights the word. Could someone assist please. I need to be able to Highlight the row from A to R

Dim vCells As Range
    
    Sheets("Result").Select
    For Each vCells In Range("A1:A2000").Cells
        If Left(vCells.Text, 2) = "Ev" Then
            vCells.Interior.ColorIndex = 43
            vCells.Borders.LineStyle = xlContinuous
            vCells.Borders.Weight = xlThin
        End If
    Next vCells

many thanks

Find Specific word and then highlight range of cells

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.