Macro to change text colour of adjacent cell to the same text colour as target cell

try this then

Sub aa()
Dim c As Range
For Each c In Columns(1).SpecialCells(xlCellTypeConstants, 23)
  c.Resize(, 6).Font.ColorIndex = c.Font.ColorIndex
    Next
End Sub