To display contents of a folder in an excel sheet using Excel MACRO

Hi All,

i want to display some selected files (starting with a particular text)
from a folder to an excel sheet.
please tell me the MACRO code to implement the same.

Thanks,
Vishal

Enter your folder path in cell A1

Sub myDIR()
myFolder = Range("A1").Value
x = 1
y = 1
Range("A2").Select
Selection = Dir(myFolder)
Do While y <> ""
y = Dir
Selection.Offset(x, 0).Value = y
x = x + 1
Loop
End Sub

Matt