Range als Gif speichern

welche Modifikation muß ich vornehmen, wenn ich mit dem Code

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

nicht einen Chart sondern eine Range als Gif speichern möchte?

Vielen Dank für Hinweise.

Matthias