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