Count of Files in a Folder - File Extension Type wise

Function CountFiles_FolderAndSubFolders(strFolder As String, Optional strExt As String) As Double
'Original Author: Ken Puls (www.excelguru.ca)
'http://www.excelguru.ca/content.php?139-Count-Files-%28with-a-specific-extension-or-not%29-in-a-folder-and-subfolders
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim objSubFolder As Object
Dim PosOfLastDot As Long
Dim IncludeSubFolders As Boolean

On Error GoTo EarlyExit
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
   
For Each objFile In objFolder.Files
    PosOfLastDot = InStrRev(objFile, ".") 'to find the position of the last dot
        If (objFile.Attributes And vbHidden) = False Then 'if you list your documents folder (windows 7). there is hidden folders with shortcut arrows, will be skipped, but with a message "Permission denied", and carry on
            If strExt = "" Or (UCase(Right(objFile.path, (Len(objFile.path) - InStrRev(objFile.path, ".")))) = UCase(strExt)) Then
                CountFiles_FolderAndSubFolders = CountFiles_FolderAndSubFolders + 1
            Else
                If Right(objFile, Len(objFile) - PosOfLastDot) = strExt Or (UCase(Right(objFile.path, (Len(objFile.path) - InStrRev(objFile.path, ".")))) = UCase(strExt)) Then
                    CountFiles_FolderAndSubFolders = CountFiles_FolderAndSubFolders + 1
                End If
            End If
        End If
    Next objFile

IncludeSubFolders = True 'change to False if you want to list only the parent folder

If IncludeSubFolders = True Then
 
    For Each objSubFolder In objFolder.SubFolders
        CountFiles_FolderAndSubFolders = CountFiles_FolderAndSubFolders + CountFiles_FolderAndSubFolders(objSubFolder.path, strExt)
    
    Next objSubFolder
End If

Exit Function
EarlyExit:
MsgBox Err.Description
Set objFile = Nothing
Set objSubFolder = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
On Error GoTo 0
End Function

Sub CountFiles()
'Original Author: Ken Puls (www.excelguru.ca)
'http://www.excelguru.ca/content.php?139-Count-Files-%28with-a-specific-extension-or-not%29-in-a-folder-and-subfolders
Dim dblCount As Double

dblCount = CountFiles_FolderAndSubFolders("D:\DESKTOP\Mali", "xltx") 'put your extention between the last 2 "". Will list all files if left like this, also change your folder
             Range("B23").Value = dblCount
             
        
End Sub

Sub blah()
Dim myPath As String
With Sheets("Sheet1")
  myPath = .Range("C2").Value    'or:
  'myPath = "D:\DESKTOP\Mali" 'adjusted as necessary, of course.
  For Each cll In .Range("B5:B27").Cells
    cll.Offset(, 1).Value = CountFiles_FolderAndSubFolders(myPath, cll.Value)
  Next cll
End With
End Sub