Paste formel præcis som den står

Sub tst()
x = Sheets("Ark1").Range("a11:b11").Formula
Sheets("Ark2").Range("c11:d11") = x
End Sub

Tak. Den løsning er dog ret statisk i forhold til mit problem, da jeg kopierer til og fra forskellige ranges/ark. Findes der er en snedig måde at komme omkring det på. Kan man fx henvise til materialet i udklipsholderen med VBA?

Så kommer jeg nok ikke nærmere en løsning
virker kun i samme projektmappe - men over flere ark
husk at markere destinationsområde af samme størrelse

Sub xCopy()

Set x = Application.InputBox(prompt:="Marker område du vil kopiere ", Type:=8)
Set y = Application.InputBox(prompt:="Marker Ark+destinationsområde", Type:=8)

x.Copy y
y.Formula = x.Formula

End Sub

*

for at lukke skal du markere box med navn og klikke accepter