Select All Shapes In Selected Cells?

I have a spreadsheet that has many shapes throughout and are connected together in a specific order. It is basically a drawing of steps and transitions in sequential order. I want to be able to select a group of cells that contain all the shapes that I want to select, run the macro and it select all the shapes within the selected cells. With all the shapes selected that I want, I can move and manipulate them as desired. The other option is to select each shape individually holding shift to make the group selection. The code that I am working with is as follows:

Sub SELECT_SHAPES_too()
Dim SH As Shape
Dim Rg As Range
Set Rg = Selection
For Each SH In Rg.Shapes
SH.Select Replace:=False
Next SH
End Sub

This is the idea that I want to do but I am having problems with the "for each shape in selection" portion.