Добрый день.  
помогите пожалуйста с макросом. Есть у меня вот такая конструкция:  
Sub цвета()  
'  
i = 1  
Do While i < 17000  
Range("B" + CStr(i)).Select  
t = Selection.Interior.ColorIndex  
If t <> -4142 Then  
If t <> 2 Then  
Range("A" + CStr(i)).Value = t  
End If  
End If  
i = i + 1  
Loop  
'  
End Sub  
 
Оно в столбце А прописывает номер цвета, если ячейка напротив в столбце Б окрашена.  
Подскажите пожалуйста как сделать(аналогично вышенаписаному макросу) так, чтобы он искал ячейки с жирным шрифтом и выделял их, скажем "+".  
Знаю что в 2007 экселе эти функции реализованы(в автофильтре), но я на 2003м работаю и разрешения на 2007 мне в ближайшее время не получить.  
 
Заранее благодарен.