Gem billede som

Jeg har nogle grafer i excel, jeg kan markere dem og indsætte som billede, så langt så godt. Men kan jeg også gemme det billede som xx? Det må gerne være med noget VBA.
Dog skifter billedet navn hver gang jeg indsætter en kopi, hvad kan jeg gøre for at det ikke giver problemer, Debug
Sub Makro3()
    Range("E3:AB22").Select
    Selection.Copy
    Sheets("Ark1").Select
    Range("B2").Select
    ActiveSheet.Pictures.Paste(Link:=True).Select
    ActiveSheet.Shapes.Range(Array("Picture 81")).Select
    Range("A1").Select
    ActiveSheet.Shapes.Range(Array("Picture 81")).Select
    Selection.Copy
End Sub