i am very sure
but if i make it in simple code like
activeSheet.Charts(InputBox("Chart name?")).ChartTitle.Text = "chart title"
but don't work also
[COLOR=#333333]ActiveSheet.[/COLOR][COLOR=#ff0000]ChartObjects[/COLOR][COLOR=#333333](InputBox("Chart name?")).[/COLOR][COLOR=#ff0000]Chart[/COLOR][COLOR=#333333].ChartTitle.Text = "chart title"[/COLOR]