Selection.Cut
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveSheet.Paste
On Wed, 27 Aug 2003 03:19:20 -0700, "Steve Wylie"
wrote:

I need a quick macro that will take the current selection
of cells and move them all one cell to the left,
overwriting the existing cell content.