>>#DEFINE xlUp -1471
...
>> .Range('A1:L1').Delete(xlUp)

>The code looks great, but the xLUp variable does not work.

You may be using a different version of Excel than I am, and MS is notorious for changing values between versions. For Excel XP, the two values for a Range's Delete method are:

#DEFINE xlShiftUp    -4162
#DEFINE xlShiftToLeft -4159

To find values for constants, use the Object Browser (in VFP7, or in Excel with Alt-F11, F2).

- della