извините забыл про формат( приложил запакованный.    
 
по поводу координатного выделения нашёл подобное только лучше. только понять не могу как сделать чтобы строка выделялась без столбца    
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'координатное выделение  
   On Error Resume Next 'по ошибке перейти к выполнения следующей строки  
   Application.ScreenUpdating = False 'чтобы не моргало  
   Dim x As Range: Set x = [A5:N300]: x.Interior.ColorIndex = xlNone
   If Target.Count > 1 Then Exit Sub  
   If Not Intersect(Target, x) Is Nothing Then  
   Intersect(x, Target.EntireRow).Interior.ColorIndex = 35  
   Intersect(x, Target.EntireColumn).Interior.ColorIndex = 35  
   Target.Interior.ColorIndex = xlNone  
End If  
End Sub

Мистер, ну как так лучше?* Мне не в первый раз уже тычат этим кодом. А Вы знаете, что...все форматы (цвета ячеек) листа сбрасываются?)  
 
Мое мнение: вариант предложенный The_Prist предпочтительнее, либо тот, кот. выкладывал я. Т.е. УФ, либо выделение стандартным способом и не как иначе.