Thank you, Borislav.

That missing '@' before the array name was exactly what I missed.

Lennert

>try this
>
>

>#define msoTextOrientationHorizontal 1 && I am not sure about this definem check it first
>
>oExcel = CREATEOBJECT("Excel.Application")
>oBook = oExcel.WorkBooks.Add()
>oExcel.Visible = .t.
>oBook.ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 51,  48, 60, 16.5).Select
>oBook.ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 51, 64.5, 60, 16.5).Select
>DIMENSION aaa[2]
>aaa[1] = "Text Box 2"
>aaa[2] = "Text Box 1"
>oBook.ActiveSheet.Shapes.Range(@aaa).Select
>oExcel.Selection.ShapeRange.Group.Select
>oExcel.Quit()
>oBook = NULL
>oExcel = NULL
>

>
>
>>Hello everyone
>>
>>I have a situation in which I want my program to group a set of shapes in Excel into one group. The shapes are textboxes. In order to do this, I started the macro recorder, built 2 textboxes,grouped them, switched to view the macro,and implement the code in my VFP program.
>>Essentially (left some unimportant propsettings out) this is the macro code:
>>
>>

>>    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 51#, 48#, 60# _
>>        , 16.5).Select
>>    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 51#, 64.5, 60# _
>>        , 16.5).Select
>>    ActiveSheet.Shapes.Range(Array("Text Box 2", "Text Box 1")).Select
>>    Selection.ShapeRange.Group.Select
>>

>>
>>It is easy enough to automate the first two statements and the fourth by VFP, but the third I cannot do, because of the ARRAY-call.
>>If I put the two strings "Text Box 2" and "Text Box 1" in a VFP array and give the array as an argument to Range() it doesn't work.
>>
>>So how to do this in VFP?
>>
>>Lennert