In diesem Beispiel wird die Zeichenfolge der Eingabeaufforderung für den Parameter geändert.
With Worksheets(1).QueryTables(1).Parameters.Item(1) .SetParam xlPrompt, "Please " & .PromptString End With