If you create a Range object you can assign a string value to it
directly, and all the cells in the range will take on that value.

Dim rng as Excel.Range
Dim myval As String
Set rng = Range("A1:A10")
myval = "Do it!"
rng.Value = myval


HTH,
JP



On Aug 12, 3:16*pm, Asif wrote:
I'm trying to assign value from Source cells into the destionation cell using
following statements.

dCell.Value = sCell.Value

Is it possible to assign value in destination cells without using multiple
copy-paste?

--
Thanx & regards,
Asif