Replace website with a cell reference in VBA code

Where it is bolded I am trying to replace that with a cell reference such as A1 where I can input a website in that cell rather than edit the VBA code everytime

Here is the code:

Sub URL_Get_Query()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://quote.money.cnn.com/quote/quote?symbols=msft", _
Destination:=Range("a1"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub

thanks for the help!