Daear Dean

The below code should do.......

Dim strFolder, strFile

strFolder = "C:\"
strFile = Dir(strFolder & "*.csv", vbNormal)
Do While strFile < ""
'Write your import code here
strFile = Dir
Loop


If this post helps click Yes
---------------
Jacob Skaria