need a macro to drop excel sheets that were not populated

  • Thread starter Thread starter James
  • Start date Start date
J

James

I need a macro to export only the first sheet of a workbook and the sheet
that was populated. ie: first sheet always in use with hyperlinks to other
sheets. once a hyperlinked sheet is chosen and populated I need a button
called export to only save the first sheet and the sheet populated dropping
off all the other sheets not used with the outcome of a new workbook to save
and e-mail. Any help would be greatful. Thank you
 
Try this
Sub idsheets()
Application.DisplayAlerts = False
For i = Sheets.Count To 2 Step -1
If Sheets(i).UsedRange.Cells(1, 1) = "" Then
Sheets(i).Delete
End If
Next i
Application.DisplayAlerts = True
End Sub
 
This works great, I have one problem. I can use this in a new workbook with
unnamed sheets. but when I put it into our template with named sheets I loose
all the sheets but the first one. The other sheets already have questions to
answer so they are pre-populated. Do i need to protect cells that have user
notes in them first.
 
You didn't say so!!! Always nice to fully state your problem in the first
post.
Perhaps you could delete sheets that don't have something in a PARTICULAR
cell.

If Sheets(i).Cells(1, 1) = "" Then
 
Back
Top