Macro question

lackeysl · Mar 27th, 2002, 10:46 AM

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 · Mar 27th, 2002, 11:38 AM

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 27th, 2002, 10:46 AM	#1
lackeysl New Member Join Date: Mar 2002 Posts: 6	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.

Mar 27th, 2002, 11:38 AM	#2
LarryJ Board Regular Join Date: Mar 2002 Location: Houston, TX Posts: 60	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