copy and paste contents of sheet

  • Thread starter Thread starter michlite
  • Start date Start date
M

michlite

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
 
Back
Top