try
ActiveCell.Cut Destination:=ActiveCell.Offset(1, -1)


Don Guillett
SalesAid Software

"Albert Einstein" wrote in message
...
I am looking for a way in a macro to do the following:
1. I select a single cell (this example C3)
2. The contents of that cell are cut
3. I then want to move the data down one and to the left ( this
example B4)
4. Then paste the contents in memory to the new cell.

Also, I would like to make this macro available for any spreedsheet.
What would be the best way to set it up? I am using Excel 2003.
Thanks in advance,
Mark