You can put the workbook that has this code anywhere, but before you run the code you need to select the folder that you want to search. Use the SaveAs utility select the folder and then cancel the SaveAs.
This will only check for sheet controls. It will not search modules for UserForns with the controls embeded. The code could be cleaned up and improved, but it works. I tested it.
Sub allFilesSearch()
'Standard Module code, like: Module1!
Dim f%, foundNum%
Dim ws As Worksheet
Dim Found As Range
Dim FirstAddress$, thisLoc$, rngNm$, AddressStr$
Dim obj As Object, myStr$, myDFFE
Dim myWb, fs, myFlie
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
'Option: Search Sub-Folders as well?
.SearchSubFolders = False 'Option: True or False!
'Option Current Folder or a defined folder?
'myDFFE = Application.GetOpenFilename
'.LookIn = myDFFE
'Or
.LookIn = CurDir
'Or
'.LookIn = "U:\My_Documents\Excel\Test\Fix\"
'Option: Only Search this type of file?
.Filename = "*.xls"
.Execute
For f = 1 To .FoundFiles.Count
Set Wb = Workbooks.Open(Filename:=.FoundFiles(f))
For Each ws In Wb.Worksheets
For Each obj In ActiveSheet.OLEObjects
If (Left(obj.Name, 9) = "Shockwave" Or Left(obj.Name, 5) = "Flash") Then myFlag = True
p = p + 1
Next obj
Next ws
If myFlag = True Then
myWb = Wb.FullName
ActiveWorkbook.Save
ActiveWorkbook.Close
Set fs = CreateObject("Scripting.FileSystemObject")
Set myFile = fs.GetFile(myWb)
myFile.Delete
myFlag = False
p = 0
Else
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
Next f
End With
Application.ScreenUpdating = True
End Sub
/
