Sub AddTo2()
Set rng1 = Range("A1:D3")
Set rng2 = Range("F1:I3")
rng2.Value = Evaluate(rng1.Address _
& "+" & rng2.Address)
End Sub

--
Regards,
Tom Ogilvy

"Susan" wrote in message
ups.com...
***is*** there any way of doing it without going cell by cell (via
macro)???

:)
susan


On May 23, 11:33 am, Tom Ogilvy
wrote:
No, it is cell by cell, but the OP's added requirement was not visible
when I
posted.

If he doesn't want to use it, he can use any that are offered that meet
his
specs.

--
Regards,
Tom Ogilvy