I am trying to take 500 rows of data and put each row in a model an
move to the next row. Unfortunately the rows of data have formulas an
I am trying to do Special Paste code to convert to a value. Here is th
code

Sub Model()
iTarget = 6
For i = 6 To Cells(Rows.Count, "A").End(xlUp).Row
Worksheets("Working Data").Cells(i, "A").Resize(, 30).Select
Selection.Copy
Worksheets("Model").Cells(6, "B").Select
Selection.PasteSpecial Paste:=xlPasteValues
Worksheets("Output").Cells(i + 6, "A")
Worksheets("Model").Cells(17, "B")
Worksheets("Output").Cells(i + 6, "B")
Worksheets("Model").Cells(18, "B")
Worksheets("Output").Cells(i + 6, "C")
Worksheets("Model").Cells(8, "B")
iTarget = iTarget + 1
Next i
End Su

--
bforster
-----------------------------------------------------------------------
bforster1's Profile: http://www.excelforum.com/member.php...fo&userid=1177
View this thread: http://www.excelforum.com/showthread.php?threadid=56336