Hi,

I have this web query.

Sub engines()
'
' engines Macro
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.duskyonline.com/dsc/engine_details.php?EngineName=E40DPL", _
        Destination:=Range("$A$1"))
        .Name = "engine_details.php?EngineName=E40DPL"
        .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 = "9"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub
Is there a way I can replace the part of the URL that says "E40DPL" to a cell that contains "E40DPL"?

So the URL would read somthing like this:

http://www.duskyonline.com/dsc/engin...hp?EngineName=["C1"]

I know that's not the correct way to write it, but that's what I'm trying to accomplish.

Thanks for any help.