i don't get the question. Do you want this for a single cell?

this would work for a selected cell or range

with selection
.Offset(, 5) = c & ", " & .Offset(, 1) & ", " & .Offset(, 2) & ", " &
..Offset(, 3)
End With

or for a specific cell it would be

with Range("A1")
.Offset(, 5) = c & ", " & .Offset(, 1) & ", " & .Offset(, 2) & ", " &
..Offset(, 3)
End With


"Darrell_Sarrasin via OfficeKB.com" <u33691@uwe wrote in message
news:97fb2711ea511@uwe...
Can I please get help with the following code.

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
lastrow = Cells(Rows.Count, "a").End(xlUp).Row
For Each c In Range("a2:a" & lastrow)
c.Offset(, 5) = c & ", " & c.Offset(, 1) & ", " & c.Offset(, 2) & ", " &
c.
Offset(, 3)
Next c
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic

End Sub


this basically will read entire document and combine the cells I want.
but I
want to use the sme type of program to combine just one line not read the
entire document as I want to embed it in the same sheet as another chart.

thanks.

--
Message posted via http://www.officekb.com