Sub found() Dim ff As FoundFiles Dim fs As fileSearch Dim I As Integer Set fs = Application.fileSearch Set ff = fs.FoundFiles With ff For I = 1 To ff.Count Debug.Print ff.Item(I) Next I End With End Sub