Hjælp til makrokode.

Jeg har selv forsøgt og det virker næsten. hvordan ændre man denne kode
Sub Makro1()
'
' Makro1 Makro
' Makro indspillet 17-12-2007 af
'

'
    Workbooks.OpenText Filename:= _
        "C:\Program Files\Jyske Bank\JNE\2225516\download\konto\19876.txt", _
        Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True
    Columns("A:E").Select
    Selection.Columns.AutoFit
    Range("D5:E65").Select
    Selection.Style = "Currency"
End Sub

Således at Kolonne D og E fra række 5 resten af rækkerne formateres som (revision KR )

Og hvordan ændre man at når man kører makroen kommer en box op hvor man kan vælge filen i mappen konto og ikke som nu hvor den henter en specefik fil (19876.txt)

Jeg lukker dette
Mvh
petert