Hi
It's working for me?
You are running it as a procedure?
Sub?<pre>
Sub CellPlusCell()
Dim Cntr
For Cntr = 1 To ActiveSheet.UsedRange.Columns(1).Rows.Count
Cells(Cntr, 2) = Cells(Cntr, 2) & " " & Cells(Cntr, 3)
Next
End Sub</pre>
Tom
_________________
Found a solution? If so, please post again so members of this board can spend their time helping others. Better still, edit your topic(intitial post), by tagging on a word or phrase such as, "Problem Solved", or "Resolved". Thanks for being courteous!
This message was edited by TsTom on 2002-05-07 08:19