Необходимо в макросе установить название узла организационной диаграммы.

Dim dgnNode As DiagramNode
Dim shDiagram As Shape
Dim shText As Shape
Dim ch As Characters

Set shDiagram = ActiveSheet.Shapes(1)
Set dgnNode = shDiagram.DiagramNode.Children.Item(1)
Set shText = ActiveSheet.Shapes(1).DiagramNode.Children.Item(1).TextShape
Set ch = shText.TextFrame.Characters

' читать существующий текст
aaa = ch.Text
MsgBox aaa
' изменить текст в узле
shText.TextFrame.Characters.Text = "aaa" ' или Cells(1,1)

Последняя строка дает "Нельзя установить свойство Text ..."

Если это ошибка Excel, как с ней бороться?
Заранее благодарен.