.Copy 使用時のクラッシュ?

vbaで "Worksheets("シート名").Copy" 行(3行目)での処理時間が長いです。vbaを実行すればするほど、処理時間が長くなっているように感じます。

book = ActiveWorkbook.Name
Worksheets("シート名").Select
Worksheets("シート名").Copy
newbook = ActiveWorkbook.Name
Windows(book).Activate
Worksheets("シート名").Select

*****
処理
*****

Windows(newbook).Activate
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="ファイル名" & ".txt", FileFormat:=xlText, 
CreateBackup:=False
ActiveWindow.Close
Windows(book).Activate
Worksheets("シート名").Select
Cells.Clear 

ご存知の方がいましたら、ご教授いただけますと幸いでございます。