Hi all

This is what I am Using at the moment.

Sub Import_Web_Page()
 Dim strDriver, intCount, intLastrow

'Import Webpage with external data query
'I have 1200 of these files, Is There a good way to select any of these
files
'So I could choose any One file and import That One file Quickly.

 With ActiveSheet.QueryTables.Add(Connection:= _
 "URL;C:\test\Test23.html", Destination:=Range("A1"))
 .Name = "eor1_4"
 .FieldNames = True
 .RowNumbers = False
 .FillAdjacentFormulas = False
 .PreserveFormatting = True
 .RefreshOnFileOpen = False
 .BackgroundQuery = True
 .RefreshStyle = xlInsertDeleteCells
 .SavePassword = False
 .SaveData = True
 .AdjustColumnWidth = True
 .RefreshPeriod = 0
 .WebSelectionType = xlEntirePage
 .WebFormatting = xlWebFormattingNone
 .WebPreFormattedTextToColumns = True
 .WebConsecutiveDelimitersAsOne = True
 .WebSingleBlockTextImport = False
 .WebDisableDateRecognition = False
 .Refresh BackgroundQuery:=False
 End With

End Sub

Thanks in Advance

Dave