Need some help implementing GetOpenFileName dialog box. Trying to create rudimentary macro to format some raw data I get from different .txt files. I can create a macro to do a single file but I need it to instead prompt the user to pick the .txt file when run. Here is where I get stuck. I've included my basic code.
*******************************************************************************************************

Sub Macro1()
'
' Macro1 Macro
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Files\209\0705_doug.TXT" _
        , Destination:=Range("$A$1"))
        .Name = "0705_doug"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(10, 2, 7, 12, 9, 6, 17, 10, 7, 37, 84, 7, 9, 12, 2, 10, _
        52, 12, 24, 7, 10, 8, 26, 79, 45, 15, 31, 13, 11, 14, 12, 147, 129, 16, 16, 11, 49, 332, 36, 35, 7, 5)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub