Thank for your help.

I got error on "msoTextOrientationHorizontal", what should i do before this command ?


With oExcel.ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 97.5, 28.5, 96.75 , 17.25)
.Select
endwith
With oExcel.Selection
.text="ABC COMPANY"
.font.Size=8
....
endwith