Just a start, but with the workbook (with the code in it) in the same folder as the .csv's...
This does not check for the existance of the file(s) first or have any error handling. Presumes the 'ticker symbols' are in column 1 (starting at row 2).
Option Explicit
Sub exa()
Dim rngNames As Range, Cell As Range
Dim wksNew As Worksheet
Dim sConString As String
With ThisWorkbook.Worksheets("Sheet1")
Set rngNames = Range(.Range("A2"), .Cells(.Rows.Count, "A").End(xlUp))
End With
For Each Cell In rngNames
sConString = "TEXT;" & ThisWorkbook.Path & "\" & Cell.Value & ".csv"
Set wksNew = ThisWorkbook.Worksheets.Add( _
After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count), _
Type:=xlWorksheet)
With wksNew
With .QueryTables.Add(Connection:=sConString, Destination:=wksNew.Range("A1"))
.Name = Cell.Value
.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 = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
.Delete
End With
.Name = Cell.Value
End With
Next
End Sub
Hope that helps a little,
Mark