I have a worksheet where some shapes have been "lost" over time (deleted
columns, etc) so now these shapes have zero width. I want to delete them
because I'll be making multiple copies of this template, and don't want the
extra overhead.

activesheet.shapes.select
will select all the shapes, and I can see the ones I want to delete.

However, I am unable to get the handles (and the screen doesn't scroll to
make sure the selected shape is in the UI) when I use:

Sub ShowShapes()

Dim shp As Shape

For Each shp In ActiveSheet.Shapes
shp.Select
DelMe = InputBox("delete this shape?")
If DelMe = "Y" Then
shp.Delete
End If
Next

I have enough shapes that I'd prefer to semi-automate this, rather than
selecting all, then picking one to delete it, then selecting all again, and
so on.

What is the best way to see the handles on a (single) selected shape so I
know it is one of my zero-width ones, and also scroll to ensure it is
"visible" i.e. in the UI screen?

Thanks!
Keith