Making Chart Titles equal Cell Contents

sure - something like the following which assumes you put the desired title in cell a1 of activesheet and sheets "mychart" is the chart in question

Title = Range("A1").Text
Sheets("Mychartl").Select
    ActiveChart.ChartTitle.Select
    Selection.Characters.Text = Title