Вот код разложения цвета, получаемого свойсвом Color на код RGB. Но у меня не работает.  
Кто подскажет, что тут добавить надо? допустим, чтобы код RGB цвета ячейки А1 появлялся в В1,С1,D1. То есть если цвет белый, чтобы я увидел код 255,255,255.  
Кто поможет чайнику? Спасибо!  
 
   Sub RGB_get_RGB_code()  
 
   Type RGB_Type  
   R As Long  
   G As Long  
   B As Long  
   End Type  
   'Function ToRGB(ByVal COLOR As Long) As RGB_Type  
   Dim ColorStr As String  
   ColorStr = Right$("00000" & Hex$(Color), 6)  
   With ToRGB  
   .R = Val("&h" & Right$(ColorStr, 2))  
   .G = Val("&h" & Mid$(ColorStr, 3, 2))  
   .B = Val("&h" & Left$(ColorStr, 2))  
   End With  
   End Function