Excel - CONSULTA EXCEL

Tengo una consulta, deberia contar la cantidad de archivos de extension determinada en una ruta especifica y mostrar la cantidad de hits en una celda, alguien tiene idea si existe forma de realizarlo???

Gracias

Javier

No me enviaron ningun tipo de sugerencia o consejo, acaso no puede realizarse la tarea que consulto? les paso un ejemplo de lo que estoy probando, me faltaria ranguear la fecha y no logra reconecer correctamente el nombre de archivo, ayuda please!!!

With Application.FileSearch
.NewSearch
.LookIn = "C:\Documents and Settings\v914946\Mis documentos\searchfiles"
.SearchSubFolders = True
.Filename = "cr*"
.TextOrProperty = "cr*"
.MatchAllWordForms = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
MsgBox "Hay " & .FoundFiles.Count & " archivo(s) coincidente(s)"
Else
MsgBox "No se encontraron filas"
End If
End With