>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
#DEFINE msoTextOrientationMixed -2
#DEFINE msoTextOrientationHorizontal 1
#DEFINE msoTextOrientationUpward 2
#DEFINE msoTextOrientationDownward 3
#DEFINE msoTextOrientationVerticalFarEast 4
#DEFINE msoTextOrientationHorizontalRotatedFarEast 6
You can get all contants using Object explorer.
Cetin