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