Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A11:A20")) Is Nothing And Target.Count = 1 Then
lg = Target.Row
For Each c In Range("B" & lg & ":H" & lg)
On Error Resume Next
c.Font.ColorIndex = 1
c.FormulaArray = _
"=IFERROR(INDEX(Type,MATCH(1,(Ref=RC1)*(Montage=R10C),0)),"""")"
c.Value = c.Value
x = InStr(c, "(")
y = InStr(c, ")")
c.Value = Left(c, x - 2) & Chr(10) & Right(c, Len(c) - x + 1)
c.Characters(x, y).Font.ColorIndex = 3
Next c
End If
End Sub