Importing YAHOO Stock Data - VB

I'm working on getting company data from yahoo into excel. I can do this manually going to Data > From web etc using site: [URL] ... for example then just import from there.

I recorded this macro:

Sub OriginalImport()
'
' Macro2 Macro
'
'
With ActiveSheet.QueryTables.Add(Connection:= _

[Code] .......

This works fine. But i want to be able to manually select the stock code, start month, date and year and end month, date and year through excel (this is already setup easy) and have this update the URL that is pasted into here: [URL] ....

In cell A1 i have used this formula: [URL] ......

This spits out something like this: [URL] .....

That will automatically update the correct URL name to enter into the correct section of the macro. But here's where i hit a snag I've tried:

With ActiveSheet.QueryTables.Add(Connection:= _
= Range("A1") _
, Destination:=Range("$A$2"))

But it doesn't like the =Range("A1") bit. Once i solve how to get this URL into the connection web-search space then i can control what my macro searches for. What do i have to do to the

= Range("A1") _

bit to make this macro work??