Selecting all objects in a dynamic range that is a single cell.

[trl123]

Hi all,
I am creating a database of instructions sheets which is formatted as a table and contains many diagrams. I am trying to get excel to return the required diagram to the original input work sheet based on a few parameters. I can get excel to select the required cell in the table, however I cannot get excel to select all the shapes in this single cell. This is the code I have tried so far which works for when the range contains more than one cell:
rowvalue from R1 is just a quick calculation that determines the required row number in the table

 Dim rowvalue As String
            rowvalue = Range("R1").Value
            Sheets("FS- Forge Data").Activate
            Dim dr As Range
            Set dr = Sheets("FS- Forge Data").Cells(rowvalue, 173)
                For Each shp In ActiveSheet.Shapes
                    If Not Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), dr) Is Nothing Then _
                        shp.Select Replace:=False
                Next shp
            Selection.Copy
            Sheets("INPUT").Activate
            Range("Diagram_Part").Select
            ActiveSheet.Paste

Any help would be greatly appreciated.
Thanks a lot,
trl123