Where does the error occur?
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"SteveC"
wrote in message
Hi, that seemed to work yesterday, but today I'm getting the error again...
here is some slightly modified code. Any other suggestions? thanks very
much for taking a look. SteveC

Run-time error '1004': PasteSpecial method of Range class failed

Sub Populate_Stocks()

Application.ScreenUpdating = False

Sheets("Input_Stocks").Select
Range("C20:F20").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy

Sheets("Input_Stocks").Select
Range("c20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Worksheets("Input_Stocks").Range("C20:F3000").Copy

Worksheets("ROIC").Range("A20:d3000").PasteSpecial
Worksheets("R&D").Range("A20:d3000").PasteSpecial
Worksheets("OL_PV").Range("A20:d3000").PasteSpecia l
Worksheets("OL_Initial").Range("A20:d3000").PasteS pecial
Worksheets("OL_Initial_2").Range("A20:d3000").Past eSpecial
Worksheets("OL5yr").Range("A20:d3000").PasteSpeci al
Worksheets("OL_PV_SEG").Range("A20:d3000").PasteSp ecial
Worksheets("WACC").Range("A20:d3000").PasteSpecial
Worksheets("WorkCap1").Range("A20:d3000").PasteSpe cial
Worksheets("WorkCap2").Range("A20:d3000").PasteSpe cial
Worksheets("MISC").Range("A20:d3000").PasteSpecial
Worksheets("MISC2").Range("A20:d3000").PasteSpecia l
Worksheets("MISC3").Range("A20:d3000").PasteSpecia l
Worksheets("MISC4").Range("A20:d3000").PasteSpecia l
Worksheets("MISC5").Range("A20:d3000").PasteSpecia l
Worksheets("PeriodDate").Range("A20:d3000").PasteS pecial

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