I have just tried this and i get a "438" error

Object doesn't support this property or method

Heres the full code from VB:

Dim xlsApp As Excel.Application
Set xlsApp = New Excel.Application
xlsApp.Workbooks.Add

....
.....
xlsApp.ActiveBook.ActiveSheet.Shapes("Text1").Text = "HI there"


Any suggestions ?