Thanks Mike

But that does not seem to work Here is my full code

With ActiveWorkbook.ActiveSheet _
.QueryTables.Add(Connection:="URL;mytargetpage", _
Destination:=Worksheets("sheet1").ActiveCell)
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With


"Mike Fogleman" wrote:

Destination:=Worksheets("Data").Activecell)

Mike F

"Don Guillett" wrote in message
...
Here's an example

With ActiveWorkbook.Worksheets("Data").QueryTables.Add( _
Connection:="URL;" & your_url,
Destination:=Worksheets("Data").Cells(1, 1))
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Will" wrote in message
...
I need to build an addin application that creates a brand new web query in
the target cell / cell range. I know how to modify, refresh, but not
create
a brand new query. I intend to provide a choice of several data page
queries.