Excellent! Much thanks!

>>I've recorded an Excel macro which I'm trying to duplicate from VFP using Automation. I've got it all working except one thing:
>>
>>Selection.Insert Shift:=xlDown
>>
>>Here is the whole macro for reference:
>>
>>

>>Sub create_new_week()
>>'
>>' create_new_week Macro
>>' Macro recorded 10/7/2003
>>'
>>    Range(Selection, Selection.End(xlToRight)).Select
>>    Range("A3:H8").Select
>>    Selection.Copy
>>    Selection.Insert Shift:=xlDown
>>    Range("B4:H6").Select
>>    Selection.ClearContents
>>End Sub
>>

>>
>>How can I automate Selection.Insert Shift:=xlDown?
>>
>>TIA
>
>Michael,
>This is exact copy of macro (dropping unncessary first line) :
>

>#Define xlShiftDown	-4121
>With ox.ActiveWorkBook.ActiveSheet
>    .Range("A3:H8").Select
>    .Application.Selection.Copy
>    .Application.Selection.Insert(xlShiftDown)
>   .Range("B4:H6").Select
>   .Application.Selection.ClearContents
>Endwith
>

>And this is alternative (unlike macro you don;t need to work with Selection)
>

>#Define xlShiftDown	-4121
>With ox.ActiveWorkBook.ActiveSheet
>    .Range("A3:H8").Copy
>    .Range("A3:H8").Insert(xlShiftDown)
>    .Range("B4:H6").ClearContents
>*    .Range("B4:H6").Select && If you want to have it selected as macro does
>Endwith
>

Cetin