need a macro to drop excel sheets that were not populated

[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

 

[Don Guillett]

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

 

[James]

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.

 

[Don Guillett]

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