Чудесный макрос

[mephist]

Я готов убить себя об стену. У меня есть два практически полностью аналогичных макроса для двух книг. Один выполняется за несколько секунд, а другой минут 10. Скажите,люди умные, почему???
Быстрый:

    ThisWorkbook.Worksheets(1).Unprotect
    Application.ScreenUpdating = False
    Filename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "2sz.xlsx")
    With Workbooks.Open(Filename, , True)
        ThisWorkbook.Worksheets(1).Unprotect
        .Worksheets(1).Cells.Copy ThisWorkbook.Worksheets(1).[a1]
        .Close False
    End With

Медленный:

    ThisWorkbook.Worksheets(1).Unprotect
    Application.ScreenUpdating = False
    Filename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "3sz.xlsx")
    With Workbooks.Open(Filename, , True)
        'Worksheets(1).Unprotect
        Worksheets(1).Cells.Copy ThisWorkbook.Worksheets(2).[a1]
        .Close False
    End With
    'ThisWorkbook.Worksheets(2).Visible = False

Я не вижу между ними никакой разницы. В быстром случае работает идет с файлами в 500 Кб,а в медленном файлы размером 40 Кб.
Как с этим справиться??? Почему так могло получиться???
Пожалуйста, высказывайте любые мысли.

[mephist]

А может быть кто-нибудь знает, как можно переместить лист из одной книги в другую с переименованием листа? Может быть так удастся ускорить мой макрос??

[EducatedFool]

Может, в Ваших файлах присутствуют формулы?

Sub test()
    Application.Calculation = xlCalculationManual: On Error Resume Next
    ThisWorkbook.Worksheets(1).Unprotect
    Application.ScreenUpdating = False
    Filename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "3sz.xlsx")
    With Workbooks.Open(Filename, , True)
        .Worksheets(1).Unprotect
        .Worksheets(1).Copy ThisWorkbook.Worksheets(1) ' копируем лист целиком
        .Close False
    End With
    Application.Calculation = xlCalculationAutomatic
End Sub

Ну или попробуйте заменить

Worksheets(1).Cells.Copy ThisWorkbook.Worksheets(2).[a1]

на

.Worksheets(1).UsedRange.Copy ThisWorkbook.Worksheets(2).[a1]

PS: Вообще, такой макрос должен выполняться менее чем за секунду...

[mephist]

Спасибо большое! Действительно все дело было в формулах!