Dim oFS As Office.FileSearch
Set oFS = Application.FileSearch
With oFS
.NewSearch
.FileType = msoFileTypeExcelWorkbooks
.fileName = "Cockpit.xls"
.LookIn = "https://***.***.com/****/***/***/***"
.SearchSubFolders = True
.Execute
MsgBox .FoundFiles.Count
End with