This should work, or at least be a start:
Private Sub DeleteSheets()
Dim wkb As Workbook
Dim wks As Worksheet
Set wkb = Application.ActiveWorkbook
For Each wks In wkb.Worksheets
If wks.Range("L1") = "" Then
wks.Delete
End If
Next wks
Set wks = Nothing
Set wkb = Nothing
End Sub