Delete Worksheets That Contain..

I have a workbook that contains over 100 sheets, all built from templates. Some of them contain data and some do not. i'd like to delete all of the ones that do not contain data. I found and modified this code from another post.

Sub delete()
Application.DisplayAlerts = False
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
If IsEmpty(Range("C9")) Then ws.delete
Next ws
Application.DisplayAlerts = True

End Sub

This code does not work but it at least shows what i'm trying to do.

    Dim wks As Worksheet

    
    Application.DisplayAlerts = False
    For Each wks In Worksheets
        If WorksheetFunction.CountA(wks.UsedRange) = 0 Then wks.Delete
    Next wks
    Application.DisplayAlerts = True

It counts cells containing anything; if there are none, it deletes the sheet.

In your code,

IsEmpty(Range("C9")) ...

Range refers to the active worksheet, not the worksheet of the loop variable, which would be

IsEmpty(ws.Range("C9")) ...

Ok, cool. thanks shg.

So in this case where every sheet does contain stuff, it won't work?

PS adding ws.range.... worked. problem solved thanks.