Color Marking of Cells between two cells VBA

Hello,

i want to highlight all cells between 2 filled in cells in a Row. I have the following code which works perfect for columns:

Public Sub TEST()
Dim objCell As Range
Dim strAddress As String
Set objCell = Columns(2).Find(What:="XX", _
After:=Cells(Rows.Count, 2), LookIn:=xlFormulas, _
LookAt:=xlWhole)
If Not objCell Is Nothing Then
strAddress = objCell.Address
Set objCell = Columns(2).FindNext(objCell)
If strAddress <> objCell.Address Then _
Range(Range(strAddress), objCell.Offset(0, 0)).Interior.ColorIndex = 5
End If
End Sub

My VBA knowledge is unfortunately not sufficient to rewrite the code, so that instead of column, e.g. row 3 is searched and marked. Can you help me out with this?

Regards,
Max

I tried this already and get the following error message: Types incompatible

Set objCell = Rows(3).Find(What:="XX", _
After:=Cells(Columns.Count, 2), LookIn:=xlFormulas, _
LookAt:=xlWhole)

I still get the same Error Message (Run Time Error 13):

Attachment 706112

Oh yes - you´re a genious. It works perfectly now. Thank you so much!

Ok here is just another question. Macro is working perfectly.

Now I want this macro to be executed for each line (5-200). How can I write a loop for this so that I don't have to copy the macro 195x?Attachment 706455

Hi rorya,

I wish I had this knowledge myself. With it you can save so much time...

It works perfectly, thanks again!