You only need to copy the range once. However, what you got should work.
But since it isn't working, see if Excel complains with this...

Sub Populate_Stocks3()
Application.ScreenUpdating = False
Worksheets("Input_Stocks").Range("c:f").Copy

Worksheets("WorkCap1").Range("A:D").PasteSpecial
Worksheets("WorkCap2").Range("A:D").PasteSpecial
Worksheets("MISC").Range("A:D").PasteSpecial
Worksheets("MISC2").Range("A:D").PasteSpecial
Worksheets("MISC3").Range("A:D").PasteSpecial
Worksheets("MISC4").Range("A:D").PasteSpecial
Worksheets("MISC5").Range("A:D").PasteSpecial
Worksheets("PeriodDate").Range("A:D").PasteSpecial

Application.CutCopyMode = False
Sheets("Instructions").Select
Application.ScreenUpdating = True
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"SteveC"
wrote in message
Using the following code from a Bernie Deitrick post. It works fine until it
gets to sheet MISC5, then I get the error: Excel cannot complete this task
with available resources. Choose less data or close other applications.

Then I click "ok", and i get another errror message, this one from the VBA:
run time error 1004 copy of range class message failed."

Even when I break up the code into tinier pieces, it almost always stops at
worksheet MISC5 wtih the above error msg. There is nothing about that
worksheet that is unusually different than other worksheets. Am I doing
anything wrong with this code, or is there anything else I can do? thanks a
lot. SteveC

Sub Populate_Stocks3()
Application.ScreenUpdating = False
Worksheets("Input_Stocks").Range("c:f").Copy
Worksheets("WorkCap1").Range("A:D")
Worksheets("Input_Stocks").Range("c:f").Copy
Worksheets("WorkCap2").Range("A:D")
Worksheets("Input_Stocks").Range("c:f").Copy Worksheets("MISC").Range("A:D")
Worksheets("Input_Stocks").Range("c:f").Copy Worksheets("MISC2").Range("A:D")
Worksheets("Input_Stocks").Range("c:f").Copy Worksheets("MISC3").Range("A:D")
Worksheets("Input_Stocks").Range("c:f").Copy Worksheets("MISC4").Range("A:D")
Worksheets("Input_Stocks").Range("c:f").Copy Worksheets("MISC5").Range("A:D")
Worksheets("Input_Stocks").Range("c:f").Copy
Worksheets("PeriodDate").Range("A:D")

Sheets("Instructions").Select
Application.ScreenUpdating = True
End