To import csv file:

Sheets.Add Type:="C:\FileName.csv"

To Select multiple files:

InputFileArray = Application.GetOpenFilename("CSV Files (*.csv)
*.csv", 1, "Select File(s)", , True)

If Not IsArray(InputFileArray) Then Exit Sub

For i = LBound(InputFileArray) To UBound(InputFileArray)

InsertCSV (InputFileArray(i))

Next

--
Kaa
-----------------------------------------------------------------------
Kaak's Profile: http://www.excelforum.com/member.php...nfo&userid=751
View this thread: http://www.excelforum.com/showthread.php?threadid=55685