On error resume next
set shp = Activesheet.shapes("autoshape 1")
On error goto 0
if not shp is nothing then
set shp = Activesheet.Shapes("autoshape 2")
End if
shp.select

--
Regards,
Tom Ogilvy

"Larry Sartoris" wrote in message
...
Is there a way to write "select autoshape 1 and if there isn't an
autoshape 1
select autoshape2"?