Vyhledávání souboru

Dobrý den,
chtěl bych se zeptat mám kód:

Sub seznam()

Dim FSO As Object
Dim NalezenoF As Long
Dim NalezenoS As Long

Set FSO = CreateObject("Scripting.fileSystemObject")
Set START = FSO.getfolder(Range("C1"))
Set Subfold = START.subfolders

For Each f In START.subfolders
For Each soubor In f.Files
On Error Resume Next
NalezenoF = Range("a:a").Find(what:=soubor.Name, lookat:=xlWhole).Row
If Err.Number = 91 Then
Cells(Cells(65000, 1).End(xlUp).Row + 1, 1) = soubor.Name
End If
On Error GoTo 0
Next soubor
Next f

For Each s In START.Files
On Error Resume Next
NalezenoS = Range("a:a").Find(what:=s.Name, lookat:=xlWhole).Row
If Err.Number = 91 Then
Cells(Cells(65000, 1).End(xlUp).Row + 1, 1) = s.Name
End If
On Error GoTo 0
Next s

End Sub

A potřebuji, aby to vyhledalo soubory jen .jpg

A za druhé, aby to vyhledalo a nezobrazovalo to koncovky .jpg , .docx apod...

Moc Vám děkuji