对象不支持这个属性或方法vba

谁能告诉我为什么这些行：

Sheets("Order").Cells(orderNum, 1).Value = box.Object.Caption Sheets("Order").Cells(orderNum, 2).Value = box.Object.GroupName 

导致错误“对象不支持这个属性或方法”？ 他们对我来说看起来很直接。

以下是更多的代码：

 For Each box In OLEObjects box.Object.BackColor = RGB(220, 230, 241) CommandButton1.BackColor = RGB(240, 240, 240) CommandButton2.BackColor = RGB(240, 240, 240) TextBox1.BackColor = RGB(255, 255, 255) TextBox2.BackColor = RGB(255, 255, 255) 'There is a very long If statement here that I'm fairly certain isn't relevant Sheets("Order").Cells(orderNum, 1).Value = box.Object.Caption Sheets("Order").Cells(orderNum, 2).Value = box.Object.GroupName orderNum = orderNum + 1 Next