Objects aren't relative to each other.

I guess you could do

Dim bMe as Boolean, shp as Shape
Dim oshp as Shape, bGoForward as Boolean
for each shp in Activesheet.shapes
if shp.name = selection.Name then
if not bGoForward then
oshp.select
exit for
end if
bme = true
end if
if bGoForward then
if bme and not shp.Name < selection.Name then
bme = False
shp.Select
exit for
end if
end if
set oshp = shp
Next

but I believe this collection is in the order the shapes were added.

--
Regards,
Tom Ogilvy


"Mike" wrote:

I want to write code to select the next object (like hitting Tab) and select
the last object (like Shift-Tab). But when I record this macro, it specifies
code for selecting the actual object name. Even if I click the relative box.
How can I do this so that I don't have to specify the name of the object, so
it will work on any set of objects?