Hi folks

i got this sub that copy a cell or a range from 1 place to another
in the same sheet, but if i fx. copy a cell with the formula =SUM(A1:A3)
then the destinations copy show exatly the same =SUM(A1:A3)
and thats just what i want but here the problem :

How do i change the kode so i can copy from 1 sheet to another ?

Sub xCopy()

Set x = Application.InputBox(prompt:="Select a cell", Type:=8)
Set y = Application.InputBox(prompt:="Select a cell", Type:=8)

Range(y.Address) = x.Formula

End Sub

thanks in advance for any help.