[Resolvido]Consulta Web VBA Excel pegando link da consulta de uma célula

Ola Amigos
Ca estou eu novamente, queria antes de expor minha dúvida queria parabenizar este fórum. Em pouquíssimo tempo obtive a resolução de uma duvida anteriormente.
Bom Desta vez preciso que uma planilha do Excel faça uma consulta web, porém o link da consulta será indicado e diferente a cada certo tempo, e ficara em uma célula da planilha, oque preciso é modificar o code abaixo para que isso aconteça.

Se utilizo o Code abaixo, a consulta abaixo acontece normalmente

Código:


Sub Consulta_Mun1()

Sheets("Pato Bragado").Select
Cells.Select
Selection.Delete Shift:=xlUp

sURL = "http://celepar7.pr.gov.br/gta/xxxxx/xxxxx/xxxxx"

With ActiveSheet.QueryTables.Add(Connection:="URL;" & sURL, Destination:=Range("A1"))
        .Name = "Consulta Geral municipio 1"
        .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 = "4"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub


Mas oque preciso é algo como isso:

Código:

Sub Consulta_Mun1()

Sheets("Pato Bragado").Select
Cells.Select
Selection.Delete Shift:=xlUp

sURL = Sheets("Pato Bragado").Range("A3")

With ActiveSheet.QueryTables.Add(Connection:="URL;" & sURL, Destination:=Range("A1"))
        .Name = "Consulta Geral municipio 1"
        .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 = "4"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Devo estar referenciando a célula onde se encontra o hyperlink de forma errada, como soluciono esse entravezinho?
desde ja agradeço!

Desculpem o encomodo mas oque estava errado era a celula selecionada para captar o link

fica o código como exemplo para quem precisar

um abraço