Hi,

If Not Application.Intersect(KeyCells, Range(Target.Address))  Is Nothing Then
    
  Call FormatChart

Else If Not Application.Intersect(KeyCells2, Range(Target.Address))  Is Nothing Then
    
  Call FormatChart2

End If
Lewis