title: Highlight cells + adjacent 2 cells if certain text if located
body: <p>If any cell contains the text "example", this cell + the two cells on the same row to the right of, to be highlighted.   </p>
  
  <p>So for instance</p>
  
  <p>B5 contains "example", b5,c5,d5 need to be highlighted orange
  b9 contains "example", b9,c9,d9 need to be highlighted orange.</p>
  
  <p>And so forth across the whole sheet.   Multiple rows and multiple columns could contain the specific text. </p>
  
  <p>Any assistance, examples appreciated. </p>
  
  <pre><code>Private Sub CommandButton1_Click()
  
      row_number = 4
  
      Do
  
          DoEvents
          row_number = row_number + 1
          swing_data = Sheet1.Range("B" &amp; row_number)
  
          If InStr(swing_data, "Test") &gt;= 1 Then
  
              With Range("B" &amp; row_number).Offset(, 2).Interior
                  .Pattern = x1solid
                  .PatternColorIndex = x1automatic
                  .Color = 65535
                  .PatternTintAndShade = 0
              End With
  
          End If
  
      Loop Until swing_data = ""      
  
  End Sub
  </code></pre>
  
  <p>This is not highlighting the 2 cells to the right, and if there is a blank cell it's stopping.   Also it's only working on one column.  Needs to work on columns B, E, N, Q, Z, AC,</p>
  
  <p>Changed this line </p>
  
  <p>&lt;<code>&lt;code&gt;With Range("B" &amp; row_number).Offset(, 2).Interior</code>code></p>
  
  <p>To read <code>&lt;code&gt;With Range("B" &amp; row_number).resize(, 3).Interior</code>code></p>
  
  <p>And it works.<br>
  Would the be an easier way to include multiple columns in this...?</p>