Thank you Ron!!!

It's very helpful.

Respectfully,
Lado

"Ron de Bruin" wrote in message
...
Try this

Sub test()
Dim cell As Range
For Each cell In Selection
cell.Value = Sheets("Sheet2").Range(cell.Address) +
Sheets("Sheet3").Range(cell.Address)
Next cell
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"L.K." wrote in message
...
Dear All,

I have three sheets (sheet1, sheet2, sheet3)

I want to write macro which will do following:
I will select some cells in the "sheet1" and in each cell of the
selection write sum of the same coordinate cells from sheet2 and sheet3.

Thank you for your help.
Lado