Clear Local loIE As InternetExplorer.Application loIE=Createobject('InternetExplorer.Application') loIE.Navigate('http://news.google.com/nwshp?hl=en&tab=wn&q=') Do While loIE.ReadyState !=4 DoEvents Enddo loDocument=loIE.Document loContent=loDocument.DocumentElement lcContent=loContent.outerHtml =Strtofile(lcContent,'c:\test_for_ut.htm',0) Release loIEwbr,