Add Formula to Shape Text in VBA code example Example: Add Formula to Shape Text in VBA Activesheet.Shapes(i).DrawingObject.Formula = "=A1"