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


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

[code]

    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 
    
[/code]

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

