Here's your answer:



Sub Macro3()

...

With ActiveSheet.QueryTables.Add(Connection:="URL;d" _

, Destination:=ActiveCell)



SHOULD BE



Sub Macro3()

...

With ActiveSheet.QueryTables.Add(Connection:="URL;" & d _

^^^^^

, Destination:=ActiveCell)