Help with an if error on excel vba

[BORUCH]

hi

i have this piece of code in my excel macro.

ActiveSheet.Shapes.Range(Array("Picture 2")).Select

The problem i'm having is that sometimes depending on the sheet that i'm running the code on it can be "image1.png etc..

how can i modify this line that if it errors out it will select image1.png or image2.png

thanks

 

[bobsan42]

if we're talking 2-3 options then this should do it:

...
On Error Resume Next
    Err.Clear
    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    If Err > 0 Then
        Err.Clear
        ActiveSheet.Shapes.Range(Array("Picture 2")).Select
        If Err > 0 Then
            Err.Clear
            ActiveSheet.Shapes.Range(Array("Picture 3")).Select
        End If
    End If
On Error GoTo 0
...

 

[DanteAmor]

With this you select the first image that exists on the sheet, no matter what its name.

    For Each shp In ActiveSheet.Shapes
        shp.Select
        Exit For
    Next

 

[bobsan42]

Or if you really want to select all shapes:

ActiveSheet.Shapes.Selectall