Copying Website Data To XL 2003

The code below should copy website data to XL 2003
However an error occurs at linemarked (**)

Error is:

Object doesn't support this property or method (Error 438)

adn the online help is just UNHELPFUL.



Sub CopyInternetDoc()
Dim IntApp As Object
Set IntApp = CreateObject("InternetExplorer.Application")
With IntApp
' Change file name to suit
.Visible = True
.Navigate "Intranet website"
.ActiveDocument.Select **
.Selection.Copy
End With
ActiveSheet.Cells.Select
Selection.ClearContents
ActiveSheet.range("A1").Select
ActiveSheet.Paste
IntApp.Quit
Set IntApp = Nothing

End Sub