Usar cadena para obtener datos web

Que tal buena noche estoy tratando de hacer una macro que me de datos de una pagina web, pero quiero estar cambiando un dato para obtener datos de fechas distintas, use esta macro que me dio el sistema directo y puse una cadena con el valor real pero no me funciona:

Dim cadena As String
cadena = http://159.16.79.199/cgi-bin/reps/edosola.cgi?FD=20120917&FH=20120917&cen=SA&st=1&sol=&graf=Generar

With ActiveSheet.QueryTables.Add(Connection:= _ "URL; cadena " _ , Destination:=Range("$A$1")) .Name = "edosola.cgi?FD=20120917&FH=20120917&cen=SA&st=1&sol=&graf=Generar" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "3" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=True

End With

End Sub

El backgroun es el error que me marca me dice pagina invalida puse "cadena" donde iba el valor real pero no funciona ojala me puedan apoyar.

Gracias!!