Delete workbook if contains x string

[calvinle]

Hi,

I have a large data file which i split into 400 different workbook in a single file. However, some workbook dontains the string:
NO DATA FOR REPORTING PERIOD

I want the VBA to find thru all the workbook, and if string "NO DATA FOR REPORTING PERIOD" found, then delete that workbook.

Thanks

[Winon]

Hello calvinle,

Are you really reffering to 400 Workbooks, or actually 400 different Sheets?

[calvinle]

I have 1 excel file with 400 different sheet inside. Or I can split that excel into separate excel file and run the macro? Which one will be easier?

[event21]

Hi -

How about this one?

For Each sht In Sheets
    If Not sht.UsedRange.Find("NO DATA FOR REPORTING PERIOD", , , 1) Is Nothing Then
        Application.DisplayAlerts = False
            sht.Delete
        Application.DisplayAlerts = True
    End If
Next

event

[calvinle]

Incredible!!!! Works awesome!