Sub Catalog()

Dim strFolder As String

Dim Path As String, fName As String, i As Integer

    strFolder = "D:\Public\Documents\"

Path = strFolder & "*.*" ' можно и "*.xls"

'добавить параметр vbDirectory, то будут выведены так же папки, _

входящие в указанную папку и ссылки на вышестоящую ".." и корневую "." папки.

'fName = Dir(Path)

fName = Dir(Path, vbDirectory)

If Len(fName) = 0 Then

    Debug.Print "Папка пуста"

Else

    i = 0

    Do While fName <> ""

        i = i + 1

        Debug.Print i, fName

        fName = Dir

    Loop

    Debug.Print "Просмотр окончек"

End If

End Sub