Thanks for the response.

I think my question was not clear...
What I'm doing is to generate a chart in each worksheet as a chartobject.
I have about 40 sheets in a workbook, and I have more than one hundered
workbooks.
So I was planning to generate the charts with VBA. Everything was done
except the chart title.
The title should look like
M-phi (Greek)-P (T-1) for sheet(1),
M-phi (Greek)-P (T-2) for sheet(2), and so on.
The cell "A1" in each sheet has information on the part (T-1), (T-2), and so
on.

I thought my code would be something like
....charttitle.characters.text = "M-" & ??????? & "-P " &
Right(activesheet.Range("A1"),5)

I thought that there was a code to write ???????? part.
if not, I have to give the title as "M-f-P" &
Right(activesheet.Range("A1"),5)
and then apply your code just changing 4 for Start augment to 3.
Am I right?


"Chip Pearson" wrote in message
...
Use the Characters property of the ChartTitle object to access
individual characters within the text of the title, and change
the font of the desired characters to "Symbol".

Dim ChtTtl As ChartTitle
Set ChtTtl = ActiveSheet.ChartObjects(1).Chart.ChartTitle
ChtTtl.Characters(Start:=4, Length:=1).Font.Name = "Symbol"


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Young-Hwan Choi" wrote in message
...
how to write a code to type a Greek character (alpha, beta,
etc.) in a
chartitle?

thanks in advance