I have the following macro to modify a chart title if "mypattern" is changed.
I'm having one problem though. At the place where I have vbnewline in the
mypattern code, it appears that it's displaying 2 line breaks. How do I fix
this?

Thanks,
Barb Reinhardt

Public Sub SetChartTitle(WS As Worksheet, mypattern As String)
Dim objCht As ChartObject

mypattern = WS.Name & vbNewLine & "Division Target " & mypattern & " Days"
For Each objCht In WS.ChartObjects
With objCht
.Chart.ChartTitle.Text = mypattern
End With
Next objCht
End Sub