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

[Tom Schreiner]

Hi
It's working for me?

You are running it as a procedure?
Sub?

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

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