VB Concatenate logic

[UHsoccer]

Need to concatenate cells from column B and C

Trying to use this code, w/o success

Dim Cntr
For Cntr = 1 To ActiveSheet.UsedRange.Columns(1).Rows.Count
Cells(Cntr, 2) = Cells(Cntr, 2) & " " & Cells(Cntr, 3)
Next

 

[Legacy 98055]

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

 

[UHsoccer]

I am running it as a Macro

1) It INSERTs a column
2) The concatenate does not show any results

 

[UHsoccer]

Solved problem, I am also adding and deleting columns and the referenced was incorrect

Thanks for the help