With statement

[tiredofit]

Can someone please tell me why this works:

    Sheet1.Shapes("Button").Select
    
    With Selection
    
        .ShapeRange.Fill.ForeColor.RGB = 12345
    
    End With

but this doesn't:

    With Sheet1.Shapes("Button")
    
        .ShapeRange.Fill.ForeColor.RGB = 12345
    
    End With

The error message is:

Object doesn't support this property or method

Thanks

 

[Kyle123]

You want:

    With wksresult.Shapes("Button")
        .Fill.ForeColor.RGB = 12345
    End With

The Selection object is not the same object as is returned by wksresult.Shapes("Button")

 

[tiredofit]

Thanks

I thought the general "rule" was to remove the select and selection words.

Usually works for me.

 

[Kyle123]

It depends, sometimes that's true, sometimes it isn't - that's why it's a "general" rule

 

[tiredofit]

It depends, sometimes that's true, sometimes it isn't - that's why it's a "general" rule

So when the "general" rule fails, should the next step be to start removing properties from the left until it works, in the example above, remove the property ShapeRange?

 

[Kyle123]

No, it should be looking in the Locals window and see what object you're actually dealing with and what properties it has

 

[tiredofit]

Thanks

 

[Kyle123]

No problem, glad you've got it sorted