>#define true .t.
>#define false .f.
>#define msotextorientationhorizontal 1
>
>local oexcel as excel.application
>oexcel = createobject([Excel.Application])
>oexcel.workbooks.add()
>
>with oexcel
> for each losheet in .activeworkbook.sheets
> losheet.activate
> losheet.range('A1').select
> losheet.range("A2").value ="Boris"
> losheet.shapes.addtextbox(msotextorientationhorizontal, 100, 100, 103.5, 15).select
>

>&& Here in this textbox1, I want to add value of "A2" i.e. Boris
>

> endfor
>endwith
>oexcel.visible=.t.
>
>Please help

Change addtextbox line to:

losheet.shapes.addtextbox(1, 100, 100, 103.5, 15).TextFrame.Characters.Text = "Boris"