Looping through 2 Columns with specific text

[Phrazel]

I am attempting to get this to loop down through the rest of cells in columns H and I.

Any help appreciated.

Sub RangeLoop()'


      Range("H2").Select
      
      
      Do Until IsEmpty(ActiveCell)
      
If Range("H & NextRow") = "Certified Bilingual" And Range("I & NextRow") = "English" Then


        Range("H:I").Interior.ColorIndex = 3 'red
    
        End If
         ActiveCell.Offset(1, 0).Select
      Loop
    
    End Sub

 

[Rick Rothstein]

I think this code will do what you want...

[table="width: 500"]
[tr]
	[td]Sub CertifiedBilingualEnglish()
  Dim R As Long, LastRow As Long
  LastRow = Columns("H:I").Find("*", , xlValues, , xlRows, xlPrevious).Row
  For R = 2 To LastRow
    If Cells(R, "H") = "Certified Bilingual" And Cells(R, "I") = "English" Then
      Cells(R, "H").Resize(, 2).Interior.ColorIndex = 3
    End If
  Next
End Sub[/td]
[/tr]
[/table]

 

[Phrazel]

It is perfect thank you so much!