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.