Change code to select shapes in "rows" instead of "columns"

[Bret1]

Hello,
I have the below code that will select all shapes in the given COLUMN range. Can someone please show me how to make it select all shapes in a given ROW range instead? Thanks!

Sub Select_Shapes()
'Used to select all shapes in columns.
Dim shp As Shape
Dim r As Range

Set r = Columns("AN:AX")

For Each shp In ActiveSheet.Shapes
    If Not Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), r) Is Nothing Then _
        shp.Select Replace:=False
Next shp
End Sub

 

[Fluff]

Maybe

Set r = rows("10:15")

 

[GWteB]

Set r = Rows("23:59")

 

[Bret1]

Maybe

Set r = rows("10:15")

Worked PERFECT! Thank you!

 

[Fluff]

Glad we could help & thanks for the feedback.