Hi,

This worked a treat thanks, just needed a _ adding as below

connstring = Range("Sheet2!B2").Value
With ActiveSheet.QueryTables.Add(Connection:=connstring , _

"pinmaster" wrote:


Hi, I wanted to do excatly that a few months ago, so I was able to come
up with this:
connstring = Range("Sheet2!B2").Value
With ActiveSheet.QueryTables.Add(Connection:=connstring ,

you will have to add "URL;" to your cell.

HTH
JG


--
pinmaster
------------------------------------------------------------------------
pinmaster's Profile: http://www.excelforum.com/member.php...fo&userid=6261
View this thread: http://www.excelforum.com/showthread...hreadid=490455