Here's a quick example


Const TestText = "text to search for here"

Dim cc as range
for each cc in range("D3:D250")
if cc.text = TestText then cc.formula = cc.offset(0,1).formula
next cc



"JV" wrote:

I have 2 questions.

First how would I loop down a column starting at cell D3 to cell D250? As
it is looping through if cell D25 for example contains text I need it to move
over to cell E25 cut the formula and paste it in cell D25.

Second scroll down column D again and if cell has a formula I need the whole
row to be made bold and have a border on top and one the bottom.

Thanks in advance.
JV