AYUDA, VB a excel

Oyu
07 de Diciembre del 2005
Ojala alguien pueda ayudarme, tengo este codigo:
Dim ApplEx As Excel.Application
Dim AreaLibroEx As Excel.Workbook
Dim AreaHojaEx As Excel.Worksheet
'darle valores a los objetos excel
Set ApplEx = CreateObject("excel.application")
Set AreaLibroEx = ApplEx.Workbooks.Add
Set AreaHojaEx = AreaLibroEx.Worksheets(1)
AreaHojaEx.PageSetup.PaperSize = xlPaperDsheet
AreaHojaEx.Cells(1, 1) = Text1.Text
ApplEx.Visible = True

En la linea AreaHojaEx.PageSetup.PaperSize = xlPaperDsheet me marca un error de que no puede aplicarse la propiedad, alguien sabe como puedo configurar la hoja de excel, en serio se lo agradeceria mucho