Sub ConcatenatingAdjacentCells()

Dim ToBeInserted As String, Length As Integer, Rows As Integer

For Rows = 1 To 1
Length = Len(Cells(Rows, 1))
ToBeInserted = Cells(Rows, 2)
Cells(Rows, 1).Characters(Length, 1).Insert (ToBeInserted)
Next

End Sub

"evelin via OfficeKB.com" wrote:

hi friends
i want to concatenate the value in cell A1 AND A2 AND PUT IN A1.
SUPPOSE " string1" is a string variable
EG. SUPPOSE A1 contains "office" and A2 contains "KB" , THEN variable
string1=OfficeKB
and assign to A1.

THIS MUST BE DONE FOR A SET OV VALUES

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200912/1

.