Sub xCopy()

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

y.Formula = x.Formula

End Sub

answer the inputboxes via mouse clicks.


Your method
Range(y.address)
hides the parent, so excel does not know which sheet you are referring to
--
Gary''s Student - gsnu200713