VBA Run-time error -214724809 (80070057)

[crazyeyeschase]

I have a macro that resizes all of the shapes within a sheet excluding one. When I run the macro it works fine however it pulls an error "VBA Run-time error -214724809 (80070057)"

This is the code

Sub Resize()

For Each shape In Sheets("Sheet1").Shapes
    If shape.Name = "RightArrow" Then
    Else:
    [COLOR=#ff0000]shape.Select[/COLOR]
    Selection.ShapeRange.ScaleWidth 1.1, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 1.1, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.IncrementLeft 10
    Selection.ShapeRange.IncrementTop 3
    End If
Next

End Sub

When i run the debug it comes back with "shape.select" highlighted.

The error also says
Method 'select' of object 'shape' failed

If i remove this line then the macro doesnt work correctley so im not sure what to do here.

 

[DeezNuts]

Did you recently upgrade your windows?

 

[AlphaFrog]

If Sheet1 is not the Active sheet, you cannot select a shape on Sheet1.

Try this...

[COLOR=darkblue]Sub[/COLOR] Resize()
    [COLOR=darkblue]Dim[/COLOR] shp [COLOR=darkblue]As[/COLOR] Shape
    [COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] shp [COLOR=darkblue]In[/COLOR] Sheets("Sheet1").Shapes
        [COLOR=darkblue]If[/COLOR] shp.Name <> "RightArrow" [COLOR=darkblue]Then[/COLOR]
            shp.ScaleWidth 1.1, msoFalse, msoScaleFromTopLeft
            shp.ScaleHeight 1.1, msoFalse, msoScaleFromTopLeft
            shp.IncrementLeft 10
            shp.IncrementTop 3
        [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
    [COLOR=darkblue]Next[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]