Construir link da Consulta WEB Excel

[trcalgaro]

Ola pessoal

Preciso construir um code que "pegue" partes do link de pesquisa em algumas celulas da planilha

Sub Consulta()

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

With ActiveSheet.QueryTables.Add(Connection:="URL;http://celepar7.pr.gov.br/gta/febreaftosa/relatorio_MunFronteira.asp?cmbCampanhaVFA=25&cmbEspecieVFA=0&rdRelatorio=8&cmbMunFront=4118451", Destination:=Range("A1"))
        .Name = "Consulta Geral"
        .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

Em teoria seria a construção do link seria a seguinte:

With ActiveSheet.QueryTables.Add(Connection:="URL;http://celepar7.pr.gov.br/gta/febreaftosa/relatorio_MunFronteira.asp?cmbCampanhaVFA="& Sheets("BD").Range("A2") & "&cmbEspecieVFA=0&rdRelatorio=8&cmbMunFront="& Sheets("BD").Range("A3"), Destination:=Range("A1"))

Mas é claro que o Code esta errado

alguém sabe como soluciono o problema?

Desde já Agradeço