I want to copy an entire sheet and paste it into another existing
sheet. Using the code below causes my cpu to peg for serveral minutes.
The range is usually around a1 to h400.

Here is the code I am using:

Worksheets(2).Select
Cells.Select
Selection.Copy

Worksheets(3).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Thanks for any help you can provide.

Worksheets(2).Range("A1:H400").Copy _
Worksheets(3).Range("A1")
Application.CutCopyMode = False

--
Regards,
Tom Ogilvy


"(E-Mail Removed)" wrote:

> I want to copy an entire sheet and paste it into another existing
> sheet. Using the code below causes my cpu to peg for serveral minutes.
> The range is usually around a1 to h400.
>
> Here is the code I am using:
>
> Worksheets(2).Select
> Cells.Select
> Selection.Copy
>
> Worksheets(3).Select
> ActiveSheet.Paste
> Application.CutCopyMode = False
>
> Thanks for any help you can provide.
>
>