VBA Copy and Paste help

[redskinsfan]

I am currently trying to cut and paste sheet 1 of one workbook to sheet 2 of another workbook. The code I am using works, but it takes a VERY long time to accomplish this simple taks. Is there a more efficient way of doing this? Thanks in advance.

Windows(ExclusionName & ".xls").Activate
    Cells.Select
    Selection.Copy
    Windows(FileName & ".xls").Activate
    Sheets("All SPIDs by Scorecard").Select
    ActiveSheet.Paste
    Sheets("Score Distribution by SPID & Scorecard").Select
    Windows(ExclusionName & ".xls").Activate

Like i said before this works, but takes over a minute. (It's quicker to do it manually.) Any suggestions?

 

[Norie]

That code can be cleaned up.

Workbooks(ExclusionName & ".xls").ActiveSheet.Cells.Copy Workbooks(FileName & ".xls").Sheets("All SPIDs by Scorecard").Range("A1")

I don't know if that will speed up the operation, I think the slowness is caused because you are copying every cell.

 

[redskinsfan]

Yeah, it shortened the time to less than 1 second!!! Thanks a lot!!