Oops, I spoke to soon. I'm positive my users will run this macro and then
decide to close it without inputting anything. If they do this it will
clear out the ChartTitle. Is there a way to have cancel close the InputBox
without clearing the Chart Title?


"Toppers" wrote in message
...
Hi,

Try this:


Option Explicit


Sub ChartTitle()

Dim ChartTitles As String, TitleStr As String, i As Integer

ChartTitles = ""
For i = 1 To 4
TitleStr = InputBox("Enter line " & i & " of chart title")
If TitleStr < "" Then
ChartTitles = ChartTitles + TitleStr + Chr(10)
Else
Exit For
End If
Next i


MsgBox ChartTitle
ActiveSheet.ChartObjects("Curve Chart").Activate
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = ChartTitles
End With

End Sub


HTH

"Joel Mills" wrote:

I started with this code. It allows the user to input 4 lines of text
into
a ChartTitle. I'm trying to modify it to allow the user to enter a
single
line of text or up to 4 lines of text . I want it to exit the first time
the user doesn't input anything in the Inputboxes. Or be able to cancel
the
inputbox without removing the text already in the chart title. I've
tried
using a label and "If then GoTo" but not sure if this approach is right
or
how to get it to work. I can post the revised code if it might be
helpful.

Joel Mills

Sub ChartTitle()

Dim CTitle1 As String
Dim CTitle2 As String
Dim CTitle3 As String
Dim CTitle4 As String
ChartTitle1 = InputBox("Enter 1st Line of Chart Title")
ChartTitle2 = InputBox("Enter 2nd Line of Chart Title")
ChartTitle3 = InputBox("Enter 3rd Line of Chart Title")
ChartTitle4 = InputBox("Enter 4th Line of Chart Title")

ActiveSheet.ChartObjects("Curve Chart").Activate
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = ChartTitle1 & Chr(10) _
& ChartTitle2 & Chr(10) & ChartTitle3 & Chr(10) _
& ChartTitle4 & Chr(10)
End With

End Sub