makro til skift af tekst import

hej
jeg har et regneark som bruger tekst import, fil navnet der anvendes indeholder en fast del, samt en dato. Jeg vil så gerne have lavet en makro således at man kan skifte dato delen ud med en celleværdi der angiver en given dato.

indtil videre er jeg kommer frem til

Sheets("***").Select
    Range("J11").Select
    With Selection.QueryTable
        .Connection = "TEXT;*:\******06052008**.***"
hvor * er den resterende del af filnavnet

kan man evt bruge Range("**")?

på forhånd tak