vertical title in excel cells

[Norah]

I use the code, for example :

excelsheet.application.worksheets("myname').value="prod"
with excelsheet.application.worksheets("myname").range("A1")
.orientation=xlvertical
end with

and sometimes works : it gives p
r
o
d



and some others does nothing!!
I feel I need the value of the constant xlvertical, but don't know how to find it. Once I needed the value of xlup and you gave it to me : -4162
Furthermore what I really want is the result d
o
r
p
and the 4 lines nearer. Any help? Thanks