Macro importar datos separados por , y ;

Estimados, he grabado una macro para importar datos separados por , y ; desde un archivo X el cual va variando de nombre pero el contenido es el mismo, necesito modifiar una parte del código para que me pida desde que archivo quiero extraer los datos, muchas gracias. (adjunto código grabado)

Sub Base_Datos_Fibra()
'
' Base_Datos_Fibra Macro
'
'
Sheets("Base_Datos_Fibra").Select
Cells.Select
Selection.ClearContents
Range("B1").Select
Application.WindowState = xlMaximized
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Informe.csv", _
Destination:=Range("$B$1"))
.Name = "Informe_1"
.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 = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Range("A2").Select

.

.

.

Continua...