Shapes aus-/einblenden und ohne select

Sub Aus" kann ich die Shapes ausblenden, aber mit "

Sub An" kann ich sie nicht wieder einblenden.
Mit der Bitte um Hilfe und die Makro ohne "select". Evtl. können die Makros aocu kürzer sein,  _
da ich sie per Rekorder ausfgezeichnet habe:
Gruß, Dieter(Drummer)
Codes im Modul:


Sub Aus()
ActiveSheet.Shapes.Range(Array("Ellipse 1", "Ellipse 2", "Ellipse 3", _
"Ellipse 4", "Ellipse 5", "Ellipse 6", "Ellipse 7", "Ellipse 8")).Select
Selection.ShapeRange.Visible = False
Range("G8").Select
End Sub


Sub An()
ActiveSheet.Shapes.Range(Array("Ellipse 1", "Ellipse 2", "Ellipse 3", _
"Ellipse 4", "Ellipse 5", "Ellipse 6", "Ellipse 7", "Ellipse 8")).Select
Selection.ShapeRange.Visible = True
Range("G8").Select
End Sub