Sub XLFiles() Dim FName As String Dim arNames() As String Dim myCount As Integer FName = Dir("C:\*.xls*") Do Until FName = "" myCount = myCount + 1 ReDim Preserve arNames(1 To myCount) arNames(myCount) = FName FName = Dir Loop End Sub