I didn't follow the thread, but it looks like there's nothing copied that can be
pasted as values:

If Not IsError(res) Then ' < == correction made
Range("F23").Copy
rng(res).Offset(0, 5).PasteSpecial xlValues
Else
rng.Offset(rng.Rows.Count, 0).Resize(1, 1).Value = Range("D21")
Range("F23").Copy 'F23 or something else?????
rng.Offset(rng.Rows.Count, 0).Resize(1, 1).Offset(0, 5).PasteSpecial xlValues
End If



"sowetoddid <" wrote:

PasteSpecial Method of Range Class failed in this line...

rng.Offset(rng.Rows.Count, 0).Resize(1, 1).Offset(0, 5).PasteSpecial
xlValues

What do you think?

---
Message posted from http://www.ExcelForum.com/

--

Dave Peterson