Excel. Измен цвета на круговых диагр. и макрос для макроса

[dorogo]

Добрый всем день!

Помогите, пожалуйста, решить две проблемы.

1. Изменение цветов круговых диаграм.

Для изменения цветов на диаграммах я использовал следующий листинг
Sub Color()
ActiveSheet.ChartObjects(1).Activate
With ActiveChart
.SeriesCollection(1).Interior.color = Range("d52").Interior.color
.SeriesCollection(2).Interior.color = Range("e52").Interior.color
.SeriesCollection(3).Interior.color = Range("f52").Interior.color
End With
End Sub

Однако, для круговых диаграмм он не работает

Подскажите, как решить эту проблему.

2. Макрос для изменения всех других макросов.

У меня есть два ряда данных

а a
б b
в c

Во всех макросах имеются названия, содержащиеся во втором столбце (имеется ввиду не ссылки на конкретные ячейки, а именно слова)
Как мне сделать так, чтобы значения второго столбца автоматически изменялись на значения первого столбца во всех макросах?

Заранее спасибо

[GSerg]

1. В круговых один ряд.
.SeriesCollection(1).points(2).interior.color

2. Совершенно не ясен вопрос.

[dorogo]

Спасибо за ответ.
Со вторым вопросом уже разобрался