Change Optional FileFilter As String = "*", to
Optional FileFilter As String = "*.xls",
That's it

Charles
xl Geek

Jim May wrote:
My Function (below) is working fine -- I'm just using it by entering
=FileCount(Test) -- I see there are optional parameters to refine selection
but don't understand what I am to enter.. What should I do in order
to select ONLY *.xls files?
TIA,
Jim

Only First three lines...
Function FileCount(FolderName As String, _
Optional FileFilter As String = "*", Optional FileType As MsoFileType =
msoFileTypeExcelWorkbooks) As Long
With Application.FileSearch