Hi All

This is a snippet of code I use to move values from one sheet to another.

Sheets("RunSheet P1").Select

Columns("Y").Find("", Cells(Rows.Count, "Y"), xlValues, _
xlWhole, , xlNext).Select

With Selection
.Value = Sheets("Run Setup").Range("D2").Value
End With

Columns("CD").Find("", Cells(Rows.Count, "CD"), xlValues, _
xlWhole, , xlNext).Select

With Selection
.Value = Sheets("Run Setup").Range("A2").Value
End With

The frustrating thing is that when I run the code a 2nd time, it will insert
the value in one of the cells, and not the other..

These Cells are not special, down & out blank cells with no formula,
references, conditioning, zip.

I even tried reverting back to copy/paste specialvalues, but it hung on the
paste special.

For some reason this:

Columns("CD").Find("", Cells(Rows.Count, "CD"), xlValues, _
xlWhole, , xlNext).Select

Doesn't like the Paste Special statement to follow it....

Any thoughts welcome.

TIA
Mick.