I have problem with code Excel-vba: I have this code

Private Sub make_Gif()
x = 22
For k = 1 To x
Dim mychart As Chart
Set mychart = Sheets("DATA").ChartObjects(k).Chart
mychart.Export Filename:="c:\" & k & ".gif", FilterName:="gif"
Next k
End Sub
This code is testing ok!
This code VBA, Export 22 charts to gif file format , named with number k (1-22)
c:\1.gif
c:\2.gif
c:\...
c:\22.gif
I want export this charts in c:\ChartTitle.Gif
c:\salesI.Gif
c:\salesII.Gif
c:\Integration.Gif
c:\.......
ChartTitle=Title of Chart



it's possible?

Plese help me
Thank for all!!

My e-mail: