Спасибо большое!!! не ожидала что так быстро!))))))

{quote}{login=Марчук}{date=10.02.2012 02:26}{thema=}{post}Excel 2010.  
Не помогло :( Варианты области книги, все перепробывал.{/post}{/quote}  
XL-2010 - CTRL+F, а далее что и как с этим делать?.. Или о чем другом речь?..

Это может и в кнопках сидеть. А так?

в том то и прикол, название файла есть, а где эта бАРАНЬя ячейка, найти не могу.

Коля nilem написал мне классный макрос котроый рвет все связи и при этом не трогает формулы листа..давно хотел прорекламировать -очень полезная штука может адаптируете себе для поиска таких ячеек.  
 
Option Explicit  
Option Compare Text  
'---------------------------------------------------------------------------------------  
' Module    : Module1  
' Author    : Николай (nilem)  
' Date      : 05.09.2011  
' Purpose   : Mikki  
'---------------------------------------------------------------------------------------  
Sub CopyWithoutRef()  
'Dim tm!: tm = Timer  
Dim r As Range, s As String, nm As Name  
With Application  
   .ScreenUpdating = 0: .Calculation = xlCalculationManual  
End With  
ActiveSheet.Copy after:=ActiveSheet  
With ActiveSheet  
   For Each r In .UsedRange.SpecialCells(xlCellTypeFormulas).Cells  
       s = r.Formula  
       If InStr(1, s, "!", vbTextCompare) Then  
           r.Value = r.Value  
       Else  
           For Each nm In ThisWorkbook.Names  
               If InStr(1, s, nm.Name, vbTextCompare) Then r.Value = r.Value: Exit For  
           Next nm  
       End If  
   Next r  
End With  
With Application  
   .ScreenUpdating = 1: .Calculation = xlCalculationAutomatic  
End With  
'MsgBox Timer - tm  
End Sub  
 
'Private Sub rtyrty()  
'Dim msg As String, nm As Name  
''For Each nm In ActiveSheet.Names  
'For Each nm In ThisWorkbook.Names  
'    If nm.Visible = False Then  
'        msg = msg & "имя: " & nm.Name & vbCrLf  
'    End If  
'Next nm  
 
'MsgBox msg, 64  
'End Sub  
 
'---------------------------------------------------------------------------------------  
' Module    : Module1  
' Author    : Николай (nilem)  
' Date      : 05.09.2011  
' Purpose   : Mikki  
'---------------------------------------------------------------------------------------  
 
 
Sub ertert()  
Dim x, i&, ch As ChartObject, nm$  
Application.ScreenUpdating = False  
 
With Sheets("Перевод")  
   x = .Range("B3:C" & .Cells(Rows.Count, 2).End(xlUp).Row).Value  
End With: nm = ActiveSheet.Name  
ActiveSheet.Copy after:=ActiveSheet  
On Error Resume Next  
With ActiveSheet  
   With .UsedRange.SpecialCells(2)    ' константы  
       For i = 1 To UBound(x)  
           .Replace x(i, 1), x(i, 2)  
       Next i  
   End With  
 
   With .UsedRange.SpecialCells(-4123) ' формулы  
       For i = 1 To UBound(x)  
           .Replace x(i, 1) & " ", x(i, 2) & " ", xlPart  
       Next i  
   End With  
 
   For Each ch In .ChartObjects ' диаграммы  
       If ch.Chart.HasTitle = True Then  
           With ch.Chart.ChartTitle  
               For i = 1 To UBound(x)  
                   If .Text = x(i, 1) Then .Text = x(i, 2): Exit For  
               Next i  
           End With  
       End If  
   Next ch  
   .Name = nm & "P" 'P англ.  
End With  
Application.ScreenUpdating = True  
End Sub