could this hepl:

Sub Button1_Click()
Dim adr As String

Range("a1:c15").Select
adr = Selection.Address
Range("b2").Value = s

End Sub


Marko

"ben" wrote in message
...
Hello,

I would like to imitate a cut and paste which would do a copy instead of a
cut and a paste and then delete of the original selection instead of the
regular paste (i.e I would do copy, paste, delete instead of cut and
paste). By recording a macro I could see how the copy and paste are done
but I don't know how I would get a second function to remember where the
original selection was in the first function to do a delete on it after
the paste.

I am wanting to do this because in a spreadsheet I have, when I do a cut
and paste it turns many cells into "REF!" and I get around it by doing a
copy, paste and delete. So I was thinking of getting around doing this
each time by combining the paste and delete part. Any help would be
appreciated.

Thanks,
Ben