{quote}{login=EducatedFool}{date=21.10.2009 10:18}{thema=}{post}Никаких функций отмены отключать не надо.  
Проблема не в этом.  
 
Выкладывайте код макроса - скажет, из-за чего возникают "тормоза"{/post}{/quote}  
 
И все таки есть команда отключения или в ручную придется искать. Все равно мне нужна эта информация, так как проблема возникает даже при замене большого количества, например, точек на запятые (имеется ввиду по миллиону замен и больше).

{quote}{login=Лузер™}{date=21.10.2009 10:42}{thema=}{post}mjpv, Вы где вообще видели, чтобы была доступна отмена хоть одной операции после выполнения макроса? А вы - список.  
А тормозит на 80% пересчет и 19% обновление экрана. 1% вероятности отношу нечто хитрое в коде.  
В общем будем теоретизировать или таки код посмотрим?{/post}{/quote}  
 
Все в архиве 40 м. НЕ проходит. ПРивожу посмотреть текст макроса  
 
   ChDir "D:\ant\0_01 m"  
   Dim I As Long  
   For I = 1 To 118  
   Workbooks.OpenText Filename:="D:\ant\0_01 m\" & Format(I, "000") & ".txt", Origin:=866, _  
       StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _  
       ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _  
       Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _  
       3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True  
   Range("A1:E810001").Select  
   Selection.Copy  
   Windows("1.xlsx").Activate  
   Range("A1").Select  
   ActiveSheet.Paste  
   Windows(Format(I, "000") & ".txt").Activate  
   Application.CutCopyMode = False  
   ActiveWorkbook.Close  
   Range("H810002:M810002").Select  
   Selection.Copy  
   Windows("12 x 3_5.xlsx").Activate  
   Sheets("30_45_Dsr").Select  
   Range("D" & I+1).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   With Selection.Font  
       .Color = -11489280  
       .TintAndShade = 0  
   End With  
   Windows("1.xlsx").Activate  
   Range("H810005:M810005").Select  
   Selection.Copy  
   Windows("12 x 3_5.xlsx").Activate  
   Sheets("30_45_Dsr").Select  
   Range("V" & I+1).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   With Selection.Font  
       .Color = -11489280  
       .TintAndShade = 0  
   End With  
   Windows("1.xlsx").Activate  
   Range("H810008:M810008").Select  
   Selection.Copy  
   Windows("12 x 3_5.xlsx").Activate  
   Sheets("30_45_-3").Select  
   Range("D" & I+1).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   With Selection.Font  
       .Color = -11489280  
       .TintAndShade = 0  
   End With  
   Windows("1.xlsx").Activate  
   Range("H810011:M810011").Select  
   Selection.Copy  
   Windows("12 x 3_5.xlsx").Activate  
   Sheets("30_45_-3").Select  
   Range("V" & I+1).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   With Selection.Font  
       .Color = -11489280  
       .TintAndShade = 0  
   End With  
   Windows("1.xlsx").Activate  
   Range("H810014:M810014").Select  
   Selection.Copy  
   Windows("12 x 3_5.xlsx").Activate  
   Sheets("85_90_Dsr").Select  
   Range("D" & I+1).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   With Selection.Font  
       .Color = -11489280  
       .TintAndShade = 0  
   End With  
   Windows("1.xlsx").Activate  
   Range("H810017:M810017").Select  
   Selection.Copy  
   Windows("12 x 3_5.xlsx").Activate  
   Sheets("85_90_Dsr").Select  
   Range("V" & I+1).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   With Selection.Font  
       .Color = -11489280  
       .TintAndShade = 0  
   End With  
   Windows("1.xlsx").Activate  
   Range("H810020:M810020").Select  
   Selection.Copy  
   Windows("12 x 3_5.xlsx").Activate  
   Sheets("85_90_-3").Select  
   Range("D" & I+1).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   With Selection.Font  
       .Color = -11489280  
       .TintAndShade = 0  
   End With  
   Windows("1.xlsx").Activate  
   Range("H810023:M810023").Select  
   Selection.Copy  
   Windows("12 x 3_5.xlsx").Activate  
   Sheets("85_90_-3").Select  
   Range("V" & I+1).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   With Selection.Font  
       .Color = -11489280  
       .TintAndShade = 0  
   End With  
   Application.CutCopyMode = False  
   ActiveWorkbook.Save  
   Next