Excel vba Change shape formula without selecting s

Question

I'm trying to change the formula within a shape without selecting it but keep getting a run-time error.

Below are some of the code I've tried so far:

    Sheets("Quote").Shapes.Range(Array("Rectangle 87")).Formula = " =CommAnnualOutput"
    Sheets("Quote").Shapes("Rectangle 87").Formula = " =CommAnnualOutput"
    Sheets("Quote").Shapes("Rectangle 87").DrawingObjects.Formula = " =CommAnnualOutput"

None of these seem to work. Is there a way to change the formula without selecting the shape first?

Answer 1

Please find the answer to your question here:

Link cell with Excel Shape

Good luck

Answer 2

You missed two characters on your last try. That would be

Sheets("Quote").Shapes("Rectangle 87").DrawingObject.Formula = "=CommAnnualOutput"