Range("A6").Value = name & Quantity & "@" & Price
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)


"Steve"
wrote in message
Hello ..
So far I have this
Sub Update_receipt(ByVal name, ByVal Quantity, ByVal Price, ByVal Total)
Sheets("Receipt").Select
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Range("a6").Select
ActiveCell.FormulaR1C1 = name
Range("b6").Select
ActiveCell.FormulaR1C1 = Quantity
Range("c6").Select
ActiveCell.FormulaR1C1 = "@"
Range("d6").Select
ActiveCell.FormulaR1C1 = Price
Range("e6").Select
ActiveCell.FormulaR1C1 = Total
intCount = intCount + 1
End Sub

Now instead of sending the Quantity to one cell, the '@' symbol to
another cell and the Price to a different cells i want to send them all
to the same cell.
Now i am a total newbie so it will be a simple answer