Форум по VBA и MS Office

В документе находится только надпись и ничего больше нет (ни текста, ни других надписей).
Как в эту надпись записать какой-либо текст с помощью макроса?

Sub Macro()
    ActiveDocument.Shapes(1).TextFrame.TextRange.Text = "Text"
End Sub

Спасибо.