this macro will open an html, copy each line into the A1 cell. - modif
this to include
your other html files

Sub gethtml()
fn = "c:\test.htm"
Open fn For Input As #1
Do While Not EOF(1)
Line Input #1, a
Cells(1, 1).Value = Cells(1, 1).Value + Chr$(13) + a
Loop
Close #1

End Su

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com

~~Now Available: Financial Statements.xls, a step by step guide to creating financial statements