As a newbie puzzling around...A macro reading Change on an Range (D28:K28) and modifying a special font in size and color works, but I need it to be that when a column is added in that Range, it is picked up in the macro, too, now it is not (obviously). And secondly I want to have the same macro with the same functionality on a second Range (D58:K58), so I need to work with different names?. Here is my code so far:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyRange As Range
Set KeyRange = Range("D28:K28")
On Error Resume Next
Set KeyRange = Application.Intersect(Target, KeyRange.Precedents)
On Error GoTo 0
If Not KeyRange Is Nothing Then
Range("D22").Font.Size = Range("D28").Value
If Range("D23") > 0 Then Range("D22").Font.ColorIndex = 10 Else Range("D22").Font.ColorIndex = 3
Range("E22").Font.Size = Range("E28").Value
If Range("E23") > 0 Then Range("E22").Font.ColorIndex = 10 Else Range("E22").Font.ColorIndex = 3
Range("F22").Font.Size = Range("F28").Value
If Range("F23") > 0 Then Range("F22").Font.ColorIndex = 10 Else Range("F22").Font.ColorIndex = 3
Range("G22").Font.Size = Range("G28").Value
If Range("G23") > 0 Then Range("G22").Font.ColorIndex = 10 Else Range("G22").Font.ColorIndex = 3
Range("H22").Font.Size = Range("H28").Value
If Range("H23") > 0 Then Range("H22").Font.ColorIndex = 10 Else Range("H22").Font.ColorIndex = 3
Range("I22").Font.Size = Range("I28").Value
If Range("I23") > 0 Then Range("I22").Font.ColorIndex = 10 Else Range("I22").Font.ColorIndex = 3
Range("J22").Font.Size = Range("J28").Value
If Range("J23") > 0 Then Range("J22").Font.ColorIndex = 10 Else Range("J22").Font.ColorIndex = 3
Range("K22").Font.Size = Range("K28").Value
If Range("K23") > 0 Then Range("K22").Font.ColorIndex = 10 Else Range("K22").Font.ColorIndex = 3
End If
End Sub

The puzzling is taking too much time now, so Thanks in advance!