exporting multiple charts as images

Hi,

I'm using the follwing code snippet to export the first chart in my workseheet as a gif file:

      Sub Create_GIF()
         Dim mychart As Chart
         Set mychart = ActiveSheet.ChartObjects(1).Chart
         mychart.Export FileName:="c:\Mychart.gif", FilterName:="GIF"
      End Sub

1) how can i edit this to use the chart name that is assigned in excel (under Layout->Properties in excel2007...the default is 'Chart 1' right now) to name the file? I noticed this is different from the actual chart Title.

2) how can i edit this to make it export every chart in the worksheet?

The goal would be to run the macro and have it export every chart on the worksheet, saving them with their chart names as their filenames.

Thanks