Господа, помогите пожалуйста!!!  
 
как зная код цвета Selection.Interior.ColorIndex = 37, получить его шестнадцатиричную запись

{quote}{login=}{date=11.02.2008 05:32}{thema=Re: Получение шестнадцатиричного кода цвета}{post}{quote}{login=Bobgood}{date=11.02.2008 05:23}{thema=Получение шестнадцатиричного кода цвета}{post}Господа, помогите пожалуйста!!!  
 
как зная код цвета Selection.Interior.ColorIndex = 37, получить его шестнадцатиричную запись{/post}{/quote}  
Hex(Selection.Interior.ColorIndex){/post}{/quote}  
 
что-то не получается. см. прикрепленный файл  
 
Sub Macro1()  
   Range("B1").Select  
   Selection.Interior.ColorIndex = 37  
   Selection.Interior.Pattern = xlSolid  
   Sheets("Sheet1").Cells(1, 1).Value = Hex(Selection.Interior.ColorIndex)  
End Sub  
 
выдает значение 25, вот если стандартные цвета подставляешь, то выдает шестнадцатиричный код.

Hex(Selection.Interior.ColorIndex) вернет 25, а человека видимо интересует "FFCC99"  
У меня получилось так Hex(Selection.Interior.Color)  
Но думаю еще можно поиграться со свойствами Interior