Toggle "select objects" instead of cells ??

[p45cal]

Please read the FAQ, especially this part (multiposting) as well as the link within it.
I'm not a moderator here so I shouldn't be back-seat moderating, I'll try to get a moderator to explain.

[Jacob Hilderbrand]

If you cross post to different forums you need to place a link to it. And should do this on all sites so people can see if a solution has already been found.

Cross Post - https://www.mrexcel.com/forum/excel-...ead-cells.html

[p45cal]

If there are no selectable shapes on the activesheet at the time the command is executed it will not go into that mode and may generate an error, so you can do one of the following:

• ensure the sheet's shapes.count > 0 before executing the command
• activate a sheet you know has shapes on first
• add a shape to the sheet before executing the command

[ksor]

If there are no selectable shapes on the activesheet at the time the command is executed it will not go into that mode and may generate an error, so you can do one of the following:

• ensure the sheet's shapes.count > 0 before executing the command
• activate a sheet you know has shapes on first
• add a shape to the sheet before executing the command

THAT's IT !

Thx a lot !

[p45cal]

THAT's IT !

That's excellent. Now it would be netiquette to go to your post/thread at MrExcel and tell them that's it's been solved, and how, referring them here if you want (actually their rules say you should refer them to here).
Not only would this save others wasting their time on your problem, but would also inform others how it was solved.
How about it?

[ksor]

Here is the solution:

Private Sub Workbook_Open()
    If ActiveSheet.Shapes.Count > 0 Then Application.CommandBars.ExecuteMso "ObjectsSelect"
End Sub

AND a link is mad e at Mr. Excel ...