Cannot shift items

[Giordano Bruno]

I have a worksheet and wish to hide the rows below the last used row. When I select all rows to the last row (52:1048576)and try to hide them, I get the illogical message "Can't push objects off the sheet".
I have searched for objects and there are none on the sheet. I'm using Excel 365. Has anyone else come across this problem?

 

[jasonb75]

Have you tried this?

https://support.office.com/en-gb/ar...in-excel-559f37da-2b7f-4548-a58d-96669f5310d6

 

[ISY]

Hi,

Test:

<code class=" language-vb" style="box-sizing: border-box; font-family: inherit; font-size: 1em; position: relative; white-space: inherit;">[COLOR=#770088]Sub[/COLOR] DeleteAllShapes()
[COLOR=#AA5500]'Note: Remove All Shape Objects From The Active Worksheet[/COLOR]
    [COLOR=#770088]Dim[/COLOR] Info [COLOR=#770088]As[/COLOR] [COLOR=#770088]Long[/COLOR]
    [COLOR=#770088]Dim[/COLOR] shp [COLOR=#770088]As[/COLOR] Shape
    Info = MsgBox([COLOR=#AA1111]"  Total n° "[/COLOR] & ActiveSheet.Shapes.Count & [COLOR=#AA1111]" [/COLOR][COLOR=#AA5500]Objects [/COLOR][COLOR=#AA1111]"[/COLOR] & Chr([COLOR=#116644]13[/COLOR]) & _
    [COLOR=#AA1111]"[/COLOR]You want to delete them from this sheet [COLOR=#AA1111]?"[/COLOR], vbInformation + vbOKCancel, [COLOR=#AA1111]"Remove"[/COLOR])
    [COLOR=#770088]If[/COLOR] Info = [COLOR=#116644]1[/COLOR] [COLOR=#770088]Then[/COLOR]
        [COLOR=#770088]For[/COLOR] [COLOR=#770088]Each[/COLOR] shp [COLOR=#770088]In[/COLOR] ActiveSheet.Shapes
           shp.Delete
        [COLOR=#770088]Next[/COLOR] shp
    [COLOR=#770088]End[/COLOR] [COLOR=#770088]If[/COLOR]
[COLOR=#770088]End[/COLOR] [COLOR=#770088]Sub[/COLOR]</code>