Udvælge fil til Import

Jeg har en makro, der importer en csv-fil, der ligger et foruddefineret sted. Hvad skal ændres for at jeg får mulighed for sælg at vælge hvilken fil der skal importeres?

Er der også noget, af makroen der er overflødig?

Her er den nuværede makro:

With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Import\Bevaegelser.csv" _
        , Destination:=Range("A1"))
        .Name = "Bevaegelser"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(4, 4, 2, 1, 1, 2)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With