On Jun 2, 4:00*pm, mju wrote:
Thanks Patrick.

The problem that I have is each cells have different values but it keep
copying same value to the end of the cell.

Dim q as String
q = Sheet1.Range("A3").Value & Sheet1.Cells(X+Y*Z, A*B+C).Value &
"Random Text" & Sin (Pi())

Works fine....