Export with save as dialog

Hello,

this is my code, which I use to expor my charts as gifs:

Sub export_charts()

Worksheets("Graphs").ChartObjects(1) _
.Chart.Export _
FileName:="Total.gif", FilterName:="GIF"

Worksheets("Graphs").ChartObjects(2) _
.Chart.Export _
FileName:="months.gif", FilterName:="GIF"

Worksheets("Graphs").ChartObjects(3) _
.Chart.Export _
FileName:="weeks.gif", FilterName:="GIF"

MsgBox "Export complete", vbInformation

End Sub

But I want export my charts with save as dialog to specify my own path.

Could anyone help???

Thanks...

tommy