New function recording

Hey,
I have a function, that one of the members in this forum wrote.
that changes the title of a chart according to the text that is written in a specific cell.
I added this code to a module:

Function A_ChangeChartTitle(CNameD, titleA)
ActiveSheet.ChartObjects(CNameD).Activate
With ActiveChart
.HasTitle = True
.ChartTitle.Text = titleA
End With
A_ChangeChartTitle = "Function - Chart Title"
End Function

and I was able to use it in the excel- worked fine.
I tryed to record it , but only once I succeeded in recording it and I got this code:

  Range("G5").Select
    ActiveCell.FormulaR1C1 = "New Title"
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "=A_ChangeChartTitle()"
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartTitle.Select
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "=A_ChangeChartTitle(""Chart 1,G5"")"

when I tryed to insert it to an existing code I got an error that the value was'nt found.
Later on I tryed to record it again but it wasn't successfull- there was no code similar to the one I got when I first recorded.

another thing I noticed is : when I used the function A_ChangeChartTitle stright forward in the excel file:the code in the "insert function" in the excel looked like this:

=A_ChangeChartTitle("Chart 1",F5)

but in the code I got while recording- the same one that gave the error - the code looked like that:

=A_ChangeChartTitle("Chart 1,G5")

I tryed to change the inverted commas but I got a sintax error.

Hope you can help me,
thanks

I don't understand what you are doing. It looks like your Function is changing the Chart title, a function should return a vlue, e.g. the title. A Sub or procdure would normally be used to change an object. Your Function looks like it will always return "Function - Chart Title"

Attach an example workbook

Do you really need code?
http://www.andypope.info/tips/tip001.htm

So code to create the formula, as in the contents of H1?

activecell.Formula=A_ChangeChartTitle("Chart 1",I1)

you can use CHAR(10) in F5 to force a newline.


="My" & CHAR(10) & "Title"

It is not a change to the code or to the cell formula. It is a change to the contents of the cell with the title text in it.