#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