I'm using excel 2000. Can someone help me revise the following code to
allow for a carriage return by the user while inputting text for the chart
title. Or is there an easier method that allows a user to enter a title
into a chart besides a message box?

Joel Mills

Sub ChartHeader()
'
ActiveSheet.ChartObjects("Curve Chart").Activate
ActiveChart.ChartArea.Select
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = InputBox("Enter the Chart Title Here"
& vbCr & _
"after creating the title select" & vbCr & " where you want to start a
new line |" _
& vbCr & "and hit enter to force a to a new line.")
End With

End Sub