Hi there,

I have this code

With ActiveSheet.QueryTables.Add(Connection:= _
"OLEDB;Provider=Microsoft.Office.List.OLEDB.1. 0;",
Destination:=Range("A1"))

What I need is a code that doens not refer to the active sheet but to a
sheet with name TimeToImplement cell A1. How do I go about?!

Regards,

Basta1980

if you mean the worksheet name is in A1 of the activesheet, then

With WorkSheets( Range("A1").Value ).QueryTables.Add(Connection:= _
"OLEDB;Provider=Microsoft.Office.List.OLEDB.1. 0;", _
Destination:= .Range("A1"))


"Basta1980" wrote in message
...
Hi there,

I have this code

With WorkSheets(Range("A1"),Value).QueryTables.Add(Conn ection:= _
"OLEDB;Provider=Microsoft.Office.List.OLEDB.1. 0;",
Destination:=Range("A1"))

What I need is a code that doens not refer to the active sheet but to a
sheet with name TimeToImplement cell A1. How do I go about?!

Regards,

Basta1980

With ActiveWorkbook.Sheets("TimeToImplement").QueryTabl es.Add(Connection:= _
"OLEDB;Provider=Microsoft.Office.List.OLEDB.1. 0;",
Destination:=Range("A1"))

If this post helps click Yes
---------------
Jacob Skaria


"Basta1980" wrote:

Hi there,

I have this code

With ActiveSheet.QueryTables.Add(Connection:= _
"OLEDB;Provider=Microsoft.Office.List.OLEDB.1. 0;",
Destination:=Range("A1"))

What I need is a code that doens not refer to the active sheet but to a
sheet with name TimeToImplement cell A1. How do I go about?!

Regards,

Basta1980

Patrick,

Thanks, but the problem was I didn't want to refer to an activesheet. But
this got me going in the right direction.

Thnx

Basta1980

"Patrick Molloy" wrote:

if you mean the worksheet name is in A1 of the activesheet, then

With WorkSheets( Range("A1").Value ).QueryTables.Add(Connection:= _
"OLEDB;Provider=Microsoft.Office.List.OLEDB.1. 0;", _
Destination:= .Range("A1"))


"Basta1980" wrote in message
...
Hi there,

I have this code

With WorkSheets(Range("A1"),Value).QueryTables.Add(Conn ection:= _
"OLEDB;Provider=Microsoft.Office.List.OLEDB.1. 0;",
Destination:=Range("A1"))

What I need is a code that doens not refer to the active sheet but to a
sheet with name TimeToImplement cell A1. How do I go about?!

Regards,

Basta1980

Jakob,

Thanks. With a slight change (destination required sheetname) the code
worked perfect.

Regards

basta1980

"Jacob Skaria" wrote:

With ActiveWorkbook.Sheets("TimeToImplement").QueryTabl es.Add(Connection:= _
"OLEDB;Provider=Microsoft.Office.List.OLEDB.1. 0;",
Destination:=Range("A1"))

If this post helps click Yes
---------------
Jacob Skaria


"Basta1980" wrote:

Hi there,

I have this code

With ActiveSheet.QueryTables.Add(Connection:= _
"OLEDB;Provider=Microsoft.Office.List.OLEDB.1. 0;",
Destination:=Range("A1"))

What I need is a code that doens not refer to the active sheet but to a
sheet with name TimeToImplement cell A1. How do I go about?!

Regards,

Basta1980