How to target just .XLS extension and not implicitly .XLSX ?

[johngalvin]

.
Remove the LIKE

If Dir(stFileName) = "" Then
If UCase(objAtt.DisplayName) = "*.XLS" Then
If InStr(objAtt, "Media") > 0 Then
objAtt.SaveAsFile saveFolder & objAtt.DisplayName
End If
If InStr(objAtt, "Media") > 0 Then
objAtt.SaveAsFile saveFolder & objAtt.DisplayName
End If
End If

This part UCase(objAtt.DisplayName) may need to be changed as well but I'm not certain at this point.

Hello
Thank you for your message.
I replaced the Like with =, but nothing changed, it still grabs .XLSX, I'm trying to make it look just for .XLS, but since .XLSX contains .XLS, it grabs the .XLSX too unfortunately..