You can implement the header directly into the macro very easily. Just pass the string Title to the macro as ARG1. Then change the following two lines in the macro:
Old: Sub GraphData( )
New: Sub GraphData(NewTitle As String)
Old: .ChartTitle.Characters.Text = "Data"
New: .ChartTitle.Characters.Text = NewTitle
Save the changes in your project.xls file and you are good to go.
Michael
www.abcdefirm.com