Worksheet.Shapes (Excel)

Returns a Shapes collection that represents all the shapes on the worksheet.

Dim shpsShapes As Shapes
Set shpsShapes = ActiveSheet.Shapes