Formatting Adjacent cell to what is being Matched

[hazmat]

Been trying all day to figure this out, with no luck. I got the Format part working but now I'm lost.

What would I do in this code, so that the cell in the adjacent column (E8:E37) next to the Match, changes color, instead of the cell that I'm using for the Match (D8:D37).
So in other words, If D8 matches AA8, I want E8 to change color and not D8.

Thanks

Sub FillColor()
    
    Dim Dcell As Range
    For Each Dcell In ActiveSheet.Range("D8:D37")
        If Not IsError(Application.Match(Dcell, Range("AA8:AA37"), 0)) Then
            Dcell.Interior.colorIndex = 4 
        Else
            Dcell.Interior.colorIndex = none 
        End If
    Next Dcell
    
End Sub

 

[Fluff]

You need to use Offset like

Dcell.Offset(, 1).Interior.colorIndex

 

[hazmat]

Awesome, Thanks!!

 

[Fluff]

You're welcome & thanks for the feedback.