Highlight specific cells in a row

[olympiac]

The code below highlights the entire row if the value in column D is different than the value in cell A1

If .Offset(, 3).Value <> Range("A1") Then
            .EntireRow.Interior.ColorIndex = 50

I need to modify it in order to highlight only the first 10 cells in the row and not the entire row.
Can you help?

 

[VoG]

Perhaps like this

If .Offset(, 3).Value <> Range("A1") Then
        Range(Cells(.Row, 1), Cells(.Row, 10)).Interior.ColorIndex = 50

 

[olympiac]

Thanks