Только если получится сделать эти три объекта одним объектом, которому можно присвоить свойства цвета.  
 
Но мне кажется это никак не получится. Даже коллекция объектов не позволит.  
 
Есть надежда, что получиться сгруппировать объекты в один... но мне кажется и это не выйдет.

> Макрорекордер делает это так:  
Ну так и Вы сделайте аналогично...    
Что именно не получается?  
 
Зачем Вы используете Dim arr(0 To 2) As Object  
Как его заполняете?  
Почему бы не хранить в массиве имена объектов вместо самих объектов?  
 
 
Я бы покрасил сразу несколько областей так:  
 
Sub test()  
   Dim sh As Worksheet, sha As Shape: Set sh = ActiveSheet  
   For Each sha In sh.Shapes  
       Debug.Print sha.Name  
   Next sha  
End Sub  
 
Sub test2()  
   Dim arr(), sh As Worksheet: Set sh = ActiveSheet  
   arr = Array("Saratov", "N.Novgorod", "Arkchangelsk", "Perm", "Tumen")  
   sh.Shapes.Range(arr).Fill.ForeColor.SchemeColor = 10  
End Sub

{quote}{login=EducatedFool}{date=05.10.2009 10:55}{thema=}{post}>    
Я бы покрасил сразу несколько областей так:  
 
Sub test()  
   Dim sh As Worksheet, sha As Shape: Set sh = ActiveSheet  
   For Each sha In sh.Shapes  
       Debug.Print sha.Name  
   Next sha  
End Sub  
 
Sub test2()  
   Dim arr(), sh As Worksheet: Set sh = ActiveSheet  
   arr = Array("Saratov", "N.Novgorod", "Arkchangelsk", "Perm", "Tumen")  
   sh.Shapes.Range(arr).Fill.ForeColor.SchemeColor = 10  
End Sub{/post}{/quote}  
 
Спаисбо! Но хотелось сделать это не циклом а одним действием, без цикла(можно сказать из спотривного интереса)