excel VBA question, pls help !

想做一個vba 做 web 資料查詢, 做十次, 每次輸入一個名稱或號碼, 共做十次web 資料查詢, 但下面個program 有問題,我將 myname 放入URL 度唔得, 應該點改??

Sub Macro1()

for i = 1 to 10
myname = Application.InputBox("enter name")

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.abcefg.com/web/code=myname" _
, Destination:=Range("A"& i))
.Name = ......
.FieldNames = ......

' 省略......

End With
next i
End Sub