copy and paste contents of sheet
 

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.

copy and paste contents of sheet
 

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

--
Regards,
Tom Ogilvy


" 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.