Всем привет!  
Есть такой вот пример на сайте Microsoft  
 
Dim x As Long  
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
   ' Set the row containing the active cell to bold.  
   'ActiveCell.EntireRow.Font.Bold = True  
   ' Check for first execution of the macro and set row value  
   ' if it is:  
   If x = Empty Then  
       x = ActiveCell.Row  
 
   ' Set previous row property back to normal, or not bold.  
   ElseIf Not x = ActiveCell.Row Then  
      Rows(x).EntireRow.Font.Bold = False  
   End If  
 
   ' Capture new row value for comparison against next selection.  
   x = ActiveCell.Row  
End Sub  
 
Вещь хорошая, но как всегда надо усовершенствовать.  
В примере - при выделении ячейки вся строка становится "жирненькой", уходим со строки - обычный шрифт  
И встала задача - а если какие-то ячейки в строке уже были выделены "жирным" шрифтом? Как можно формат таких ячеек оставить в исходном состоянии после ухода со строки?  
Если непонятно объяснил - пишите