СПАСИБО ВАМ!  
Макросы включил, но почему-то не поддерживаются (макросы написаны 2003 Экс.). Можно-ли както решить эту проблему. Вот например:  
Private Sub Workbook_Open()  
Sheets("Форма").Select  
Range("g2").Select  
MsgBox ("Нажмите двойным щелчком на имя филиала, и Вы получите отчет по данному филиалу")  
End Sub  
       
ИЛИ:  
 
  Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)  
 With ActiveCell  
  If .Row = 2 Then  
   Sheets("С_Т").Select  
   Range("o2").Select  
    ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("БИК").CurrentPage = _  
     "350501403"  
       Sheets("Форма").Select  
        Cancel = True  
       Else  
  If .Row = 3 Then  
   Sheets("С_Т").Select  
   Range("o2").Select  
    ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("БИК").CurrentPage = _  
     "350501404"  
       Sheets("Форма").Select  
        Cancel = True  
        Else  
        If .Row = 4 Then  
   Sheets("С_Т").Select  
   Range("o2").Select  
    ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("БИК").CurrentPage = _  
     "350501405"  
       Sheets("Форма").Select  
        Cancel = True  
       Else.... и.т.д.