how about using a Web Query:

ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://finance.yahoo.com/actives?e=o",
Destination:=Range("A1"))
.Name = "actives?e=o"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "3"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

Look at help on "WebTables" and .WebSelectionType = xlSpecifiedTables


http://office.microsoft.com/en-us/as...450851033.aspx

http://www.vertex42.com/News/excel-web-query.html

--
Regards,
Tom Ogilvy


"Bill" wrote in message
...
Can anyone show me some code to import an HTML table from a webpage. I
curious if it is possible to import the data between <TABLE tags in the
html
source.