Macro question

[lackeysl]

I have a form that has multiple sheets. Each time the form is used, not all sheets are needed. I would like to write a macro that would delete any sheets that do not have data in cell L1 prior to saving.

 

[LarryJ]

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